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Lieber Leser! 


Sie haben über Ihren Zeitschriftenhändler die zweite, von der Redak- 
tion des TRONIC-VERLAGS überarbeitete Ausgabe von Homecom- 
puter erhalten. Homecomputer wird weiterhin regelmäßig brandneue 
Informationen aus der Mikroelektronik bringen, tolle Listings von 
aktuellen Programmen abdrucken und die populärsten Heimcompu- 
ter, wie Commodore 64, VC-20, Dragon 32, TI-99, Apple II, ZX- 
Spectrum, ZX-31, Laser, Sharp u..a., berücksichtigen. 

Auf der Computerszene werden wir flexibel bleiben. Heimcomputer 
werden mittlerweile immer schneller, immer leistungsfähiger. Viele 
hoffnungsvolle Newcomer dieser Kategorie schicken-sich an, dem 
Commodore 64 beispielsweise Konkurrenz zu machen. Wir bleiben 
am Ball. Auch neue Systeme wollen wir berücksichtigen. Homecom- 
puter soll also weiterhin eın Magazin für Anfänger und Fortgeschritte- 
ne, Jugendliche und Erwachsene sein. Für alle Mikrocomputer-Inter- 
essierten soll Homecomputer spannend, nützlich, unterhaltend und 
leicht verständlich bleiben. 

Interessierte Einsteiger können mit „Homecomputer“ in die Welt der 
faszinierenden Computerspiele einsteigen. Viele Leute verwenden 
Heimcomputer, um sich mit den beliebten „Arcadespielen“ wie Pac- 
Man oder Blue Max die Zeit zu vertreiben. Mit Hilfe von Homecom- 
puter können Sıe noch weiter in dıe Spielszene eindringen; zudem 
bieten wir unseren bisher so erfolgreichen (weil schnellen) Software- 
Service an. Anwenderprogramme, Hilfsprogramme, Simulations- 
Tal AStattassı]fäte werden Sie in eine phantastische Welt versetzen. 
In jeder Ausgabe halten wir einen neuen Bestell-Katalog für Sie bereit. 
Wir wissen, die richtige Software auszusuchen, kann genauso schwie- 
ig und zeitraubend sein wie die Auswahl des „richtigen Computers. 


Wir sind Ihnen dabei gern behilflich. = 
Die Redaktion 
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Hört, hört ... 
Wenn Sie in der Lage sind, auch andere an Ihren 


Phantasien teilhaben zu lassen, versuchen Sie es 
doch einfach mal mit selbsterstellten Pr ogrammen! 


Wir suchen ständig neue, 
phantastische Abenteuer, 
spannende und lustige 
Programme und 
natürlich auch 
Anwender- 
software. 


Wir brauchen von Ihnen: 


Ausführliche Spielbeschreibung 


Datenträger (Kassette oder Diskette) 
Komplettes Listing ‚(nicht unbedingt erforderlich) 


Wir zahlen Ihnen: 
 abgedruckte volle Seite 
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Computercamp 


Ferienzentrum Schloß 


Dankern greift den 


Trend zu LOGO auf 


LOGGO, die Computersprache „mit der 
Schildkröte“, ist die in den USA ofh- 
ziell anerkannte und in öffentlichen 
Schulen gelehrte Computersprache für 
die Jüngsten. Nachdem bereits in die- 
sem Jahr erkennbar war, daß immer 
mehr jüngere Kinder an die Terminals 
drängten, war es da eigentlich nur 
„logo“, auch diese, wegen ihrer Ein- 
fachheit besonders für Kinder unter 10 
geeignete Programmiersprache mit ın 
unser Unterrichtsprogramm aufzuneh- 
men. Daß gerade ım neuen LOGO- 
Kurs besonderer Wert aufspielerischen 
„Unterricht“ gelegt wird. versteht sıch 
da eigentlich schon fast von selbst. Toll 
ist, daß durch den neuen LÖGO-Kurs 
auch dıe jüngsten Computerläns die 
Möelichkeit bekommen, „fast wie die 
Großen“ zu programmieren und lustige 
Mal- und Spielprogramme zu gestalten. 


Ein neues UÜnterrichtssvstem im Com- 
putercamp  Ferienzentrum — Schloß 
Dankern 

Im den Einzelwünschen der Teilneh- 
mer noch besser gerecht zu werden, 151 
das gesamlie Unterrichtissysiem neu 
aufgebaut worden, Schon bei der Bu- 
chung geben die Teilnehmer an, für 
welchen Kurs bzw. welche Kurse sie 


Bu Se Bu Ze 


Sr zu 
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sich interessieren. Die Einzelkurse - 
LOGO, BASIC 1, BASIC 3 und MA- 
SCHINENSPRACHE - sind so ausge- 
legt, daß sıe aufeinander aufbauen und 
daher einzeln oder direkt aufeinander 
[olgend belegt werden können. 
Andererseits bleibi aber durch den be- 
sonders individuellen Unterricht die 
Möglichkeit, auch mehrere Wochen 
hintereinander #.B. den MASCHI- 
NENSPRACHEKURS zu besuchen, 
falls jemand gerade besonderes Interes- 
se hat. 


Das Computercamp-Freizeitprogramm 
1083 wird noch weiter verhessert 
Für alle diesjährigen Teilnehmer wird 


Bu SEE Sue SZ SZ Zu u 








das zwar unwahrscheinlich klingen, 
aber irotzdem haben wir noch einige 
ganz neue Programmpunkie unserer 
fası unendlichen Liste an Freizeitakti- 
yiläten hinzugelllegt. Hier einige der 
Highlights ım Telegrammstil: Schwim- 
men im Wellenhallenbad Haren ... WVi- 


deo zum Selbermachen Ausflüge 
nach Holland und ın den Saturpark 
Hilterberg ... Besichtigungsiouren von 
Sehenswürdigkeiten wie einer alten 
Mühle und historischen Ems-Booten ... 
Eine Schiflstour auf der Ems mit der 
„Amisia“ ... Besuch eines typischen 
Emsland-Bauernhöfes und wıele 
Wettbewerbe, von Tischtennis bis zum 
Puddingwettessen. 


Für weıtere Informationen wendet man 
sıch an: 

Buchungsbüro Computercamp Ferien- 
zentrum Schloß Dankern, Holziwiete 
4d, 2000 Hamburg 53, Telefon 040 / 
52 7942, 

Ab 14.1.1985: Goßlerstraße 21, 2000 
Hamburg 55, Telefon 0 40 / 86 23 44, 


re 
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Commodore 64 


Zwischen zwei Planclen pendelt eine 
Raumfähre, die von feindlichen Gestal- 
ien angegriffen wird. Mit Ihrem Raum- 
schilf sichern Sie den Weg der Welt- 
raumlähre. Dazu sieht Ihnen ein Ener- 
gıchball zur Verfügung, der aber immer 
wieder aufgefangen werden muß. bevor 
ein Angreifer damit unschädlich ee- 
macht werden kann. Sie haben insge- 
samt neun Schiffe für Ihre Mission. 
Manchmal müssen Sie ein Schiff op- 
lern, um die Zerstörung der Raumfähre 
zu vermeiden. Ein 
Kasseife, empf. 
19,95 DM 


Verbraucherpreis: 
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Programm auf 











Homecomputer-Bücherkiste 


Was Sie schon immer über Computer wissen wollten von Daniel Cohen 








Es ist an der Zeit, mehr über Computer 
zu wissen. Computer - vom Mikro - bis 
zum Großrechner — betreffen inzwi- 
schen uns alle, jeden Tag, Frivat und 
beruflich, selbst in Situationen, in de- 
nen ein Computer eigentlich gar nichts 
zu suchen hat. Durch dieses Buch wer- 
den Ste in Form eines Dialogs mit dem 
Computer vertraut gemacht, Es stelli 
klare Fragen - Ihre Fragen! Es gibt ein- 
lache Antworten - Antworten eines Ex- 
perien! 50 erfahren Sie alles über die 
Geschichte und Entwicklung der Com- 


puter, die Technologie und Terminolo- 
gie, die Arbeitsweise und den Einsatz, 
die Programmierung und die Anwen- 
dung usw. Dieses Computerbuch be- 
antwortet Ihnen über 260 Fragen zum 
Thema Computer, auch Fragen, die Sie 
sich noch gar nicht gestellt haben. Das 
wichtigste Kriterium ist es, daß Sie sich 
Zeit für dieses Buch und seine Themen 
lassen. Es lohnt sich! 


Heyne Computer Biicher Nr. 15,8, 
DM 7,80, Originalausgahe 


Testen Sie Ihre Computer-Intelligenz von Alfred W. Munzert 
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Ein spannendes, amüsanies Tesipro- 
gramm = der spielend leichte Einstieg in 
die faszinierende Welt der Mikrocom- 
puler. 


Der Autor hat es verstanden, auf cin- 

fache, verständliche, fast spielerische 

Weise eine Einführung in Logik und 

Technik von Computern zu geben. Er 

beantwortet Fragen wie: 

— Was ist ein Computer” 

-— Wie funktioniert das Gerät? 

- Welchen Nutzen bringt mir der 
Heimcomputer? 

Daneben wird auch eine Serie von sorg- 

lieg ausgewählten Tests angeboten, 


die Ihnen mit Witz und Spannung zeigt. 
wie hoch Ihr persönlicher Computer- 
I ıst. Er beantwortet Ihnen auch Fra- 
gen ob Sie besonders begabt für den 
Computer sind, ob Sie der geborene 
Programmierer sind oder worin Ihre 
besondere Stärke liegt. 

Dieses Buch ist die ideale Vorbereitung 
für den Umgang mit Mikrocomputern. 
Für den Fortgeschrittenen stellt es eine 
Herausforderung an seine logischen Fä- 
higkeiten dar. 


Heyne Computer Bücher Nr. 15/1, 
DM 980, Originalausgabe 
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Commodore 64 Michael Boom 





Der Commodore 64 gehört zur neuen Generation von Computern, die sich durch 
hohe Leistungsfähigkeit und große Speicherkapazität auszeichnen. Sein niedriger 
Preis macht ihn für einen Benuizerkreis interessant, für den der Erwerb eines 
Computers aufgrund der damit verbundenen Aufwendungen bislang nicht in 
Frage gekommen ist. Mit dem Commodore 64 können Sie Ihr Konta oder die 
Bücher eines kleineren Geschäftes führen, Briefe an Freunde schreiben, Schach 
spielen oder Raumschilie durch feindliches Gebiet im Weltall steuern, 

Das Taschenbuch aus der Reihe »Goldmann computer compact« gibt Ihnen eine 
Einführung in die Handhabung und Arbeitsweise des Commodore 64 und bietet 
einen Überblick über die Programme und Produkte, mit denen Sie das System 
erweitern können, 

Außerdem finden Sie eine ausführliche Darstellung des Commodore 64-Syvstems, 
seiner einzelnen Elemente und ihrer Aufgaben. Computer Compact, Goldmann 
Verlae, München. 

Wenn Sie sofort mit Ihrem Computer arbeiten wollen, lesen Sie Kapitel 3 und 
springen dann zum Anhang, der Sie in das Programmieren und Laden von 
Programmen einweist,. Wenn Sie aber etwas Geduld haben, wird Sıe dıe nähere 
Betrachtung des © 64-Computersystems darin unterstützen, Ihr Gerät besser zu 





verstehen und zu kontrollieren, 


Basic Richard G. Peddicord 





Sie haben sich entschlossen, sich mit 
der Computer-Programmiersprache 
BASIC vertraut zu machen. BASIC, die 
Abkürzung steht für Beginner's Allpur- 
pose Symbolc Instruchon Code und 
bezeichnet die am leichtesten erlernba- 
re höhere Programmiersprache, ist eine 
Sprache wie jede andere auch, aber viel 
einfacher, Um mit BASIC umgehen zu 
können, müssen Sie einige englische 
Ausdrücke lernen, die allgemeinver- 
ständlich scheinen, ın BASIC aber ci- 
nen eindeutigen Sinn haben. Sie müs- 
sen genau wissen, wann und wie jedes 
Wort zu benutzen ist; denn nur so kön- 
nen Sie einem Computer korrekte Än- 
weisungen geben. 

Einem Computer Instruktionen zu ge- 
ben, heißt, ihn zu programmieren. Das 
Programm sagt dem Computer genau, 
was in welcher Reihenfolge zu un ist. 
Jede Aufgabe, wie einfach sie auch sein 
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mag, muß dem Computer durch ein 
Programm zugewiesen werden, sonst 
kann er sie nicht ausführen. Im übrigen 
befolgen Computer die Programman- 
weisungen präzise, d. h., sie übernch- 
men auch alle Fehler des Programmie- 
rers und führen sie aus. Korrektes Pro- 
erammieren verlangt daher sorgfältige 
Beachtung aller Details, 

Was ist ein Computer” Er ist eine Ma- 
schine, die Ihnen hilfi, Probleme beim 
Erfassen und Verarbeiten von Inlorma- 
tionen zu bewältigen. Mit dem Compu- 
ter-Jäßt sich ein Großteil der Papierar- 
beit im Büro erledigen, Sie können ihm 
Buchhaltung und Finanzverwaltung Ih- 
rer Firma anvertrauen, er führı komplı- 
zierte Berechnungen durch, bleıbı 
wichtigen Worgängen auf der Spur und 
bietet Ihnen sogar die Möglichkeit zu 
unterhalisamen, anspruchsvollen Spie- 
len, 
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Schnittstellen- 


umschalter für 
Centronics-Schnitt- 


stellen 





Neu auf’ dem Markt sind seit Oktober 
84 die Schnittstellenumschalter DUO- 
PER C und DUO-PER CI für Centro- 
nics-Schnittstellen. Der Umschalter 
verfügt über einen Computeranschluß 
und 2 Ausgänge für Drucker oder ähnli- 
che Peripheriegeräte, Die Umschaltung 
erfolgt über einen Schalter an der 
Frontplatte, der die interne Elektronik 





ansteuert, Die Schnittstellensignale 
werden intern durch eine Elektronik 
regeneriert, damit sie störungsfrei beim 
Peripheriegerät ankommen. 

Das Gerät gibt esin drei Ausführungen. 
Der DUÖO-PER © ist mit externer und 
interner Stromversorgung erhältlich. 
Die interne Stromversorgung erfolgt 
über ein Steckernetzteil. Bei Externer 
Stromversorgung muß dıe 5 W-Versor- 
gung über eines der Schnittstellenkabel 
aus den angeschlossenen Geräten erfol- 
gen, Der DUO-PER CI ist die industri- 
elle Ausführung in einem Metallgehäu- 
st, Die Netzversorgung ist eingebaut. 
Alle Geräte werden über Stecker an der 
Rückseite angeschlossen. Der einge- 
schaltete Kanal wird durch eine 
Leuchtdiode an der Frontplatte ange- 
Zeigt, 

Nähere Informationen: BAUZ GmbH, 
Postfach 13 29, 2730 Zeven 


Die Fa. applı-data GmbH hat eıne Er- 
weiterungsplatine für den DRAGON 
entwickelt. 


Die heißt PB 500, ıst eine leistungsstar- 
ke Erweiterungsplatine für den DRA- 
GÖON und bietet folgende Leistungs- 
merkmale: 


— direkter Anschluß an das BUS-Er- 
weiterungsport 

— Digitaleingänge mit Schutzbeschal- 
tung und Eingangsfilter (Industrie- 
standard) 

— Simulationsschalter für jeden Digi- 
tal-Eingang 

— Digital-Relais-Ausgänge 
8 A/2000 WA 

-— Opiokoppler und Anzeige LEDs für 
alle Dieital-Ein-/Ausgänge 

— 4 Analog-Eingänge für direkte Tem- 
peraturmessung 

— keine Einstellung erforderlich: alle 
Kanäle sind geeicht 

— lesteingestellte Temperaturbereiche 
20°C bis +43 "C und 10°C bis 73°C 

— alle Anschlüsse über Schraubklem- 
men 

— sehr einfache Handhabung der Hard- 
ware und Soflwäare 


20V - 


Der anwenderfreundliche und praxis- 
gerechte Aufbau erschließt neue An- 
wendungsmöglichkeiten, z.B. Alarm- 
und Störmeldesysteme, Hausleittech- 
nik, Datenerlassung, intelligentes 
Steuerwerk für Heim und Hobby 
(Heizungssteuerung, Modellbahnsteue- 
TUNE ...). 





Ein Nadel-Matrixdrucker von Olympia für 


jeden Mikrocomputer 





Von Olympia gibt es jetzt aus der com- 
pact-Serie auch einen Matrixdrucker, 
den Olympia electronic compact NP. 
Daneben gıbt es die bereits bekannte 
Schreibmaschine mit werksseitigem In- 
terface, electronic compact 2, sowie ei- 
nen Typenraddrucker ohne Tastatur, 
dıe Maschine electronic compact RO, 


— Per Tastendruck kann ın Schön- 


schrifi gedruckt werden. Dazu wird 
jede Zeile zweimal mit leichtem Ver- 
satz gedruckt. 

— Durch eine Gummiwalze wird ein 
sehr leiser Druck erzielt. 

— Mıt den Bedientasten kann der linke 
und der rechte Rand gesetzt werden. 

-— Der Traktor ıst auch auf schmales 
Papier {einbahnıge Etiketten) ein- 
stellbar. 


Der Preis beirägt für die Ausführung 
mit Cenironics-Interface DM 1695,- 
und für Centronics und Y.>4-Interface 
(alle Baudraten, Hardware- und Sofl- 
wareprotokoll}) DM 1945,- inkl. MwSt. 
Eine Ausführung für den C64 mit Gra- 
iikfähiekeit kostet DM 1945,— Info. 
iti-Datentechnik, Telemannsiraße 185, 
17250 Leonberg, Tel: 071527 
63050. 71074 
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ist auch Ihre Homecomputerzeitschrift 


und zwar um bis zu 25%, 
wer Sie sich für ein Jahresabonnement 
ar) 
HOMECOMPUTER, CPU 
oder HC & CPU als Kombination 
entscheiden 


Statt 66,- DM für 12 Hefte HC oder CPL zahlen 
Sıe im Jahresabonnement nur 55,- DM. 
Beide Hefte im Abonnement kosten 
statt 132,- DM nur 100,- DM. 


Bei Lieferung in das europäische Ausland beträgt 
das JAHRESABONNEMENT HC oder 
CPU 50,- DM (nach außereuropäischem Ausland 110,- DM). 
Das KOMBINATIONSABO von HC und 
CPU 150,- DM (europ. Ausland). 
Übersee 300,- DM. 


Verlags-Garantie 
#* Sie erhalten HOMECOMPLITER und CPU ab der nächtterreichbaren Ausgabe * 
#* Lieferung erfolgt frei Haus inkl Mehrwertsteuer # 
*#*. Die Zustellgebihhren sind im günstigen Abonnemenlspreis bereits enthalten * 
#* Es entstehen Ihnen keine weiteren Kosten * 


Ausschneiden und einsenden an: 


ER Bestellgutschein 
Verlagsunion Ja, ich möchte ıns Computerleben einsteigen und bestelle deshalb: 
iedrich-Bereius-Straße 0 [I Jahresabonnement von Homecomputer (12 Hefte) 
er en SELaEN [) Jahresabonnement von CPU (12 Hefie) ; 


U Kombi-Abonnement von HC+ CPU (24 Hefte) 


6200 Wiesbaden 





Du TBV TLATIE 





Slrable, Hr. Pilr, Or 


Ich wünsche folgende Zahlungsweise 
[1 Bargeldlos durch Bankeinzug; = 
Hankkeatzahl 


[1 


Gekhlinstinat Kanto-Hr. 


Ü gegen Rechnung 
[1] gepen Vorkasse 


Postgiroamt Fim,, | Datum, Unterschnft 
Kt.-Nr, 4192 90-601 BLZ 500 100 60 
(Berreffender bitle ankreuzen‘ 


Abonnements-Kündigungen: 
6 Wochen vor Ablaul des Jahres-Abonnemenıs. 
Außerdem kann ich diese Bestellung innerhalb von 10 Tagen beim Verlag widerrufen! 





Cum, Unterschrift 
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Optischer Eindruck 

Farbgebung: 

- Die Farbe des Dragon 64 ist ein helles 
Grau, das schr gut mit Peripheriegerä- 
ten (Monitor, Drucker, Datenrecorder) 


Tips &Tricks 


richt | 


Se 
„, Tonausgabe. 


Sounds aus dem Dragon 


Der Dragon-Computer verfügt zur Erzeugung von Tönen über eine „Play“- und 
eine „Sound“-Anweisung. Diese beiden Befehle sind von Basıe aus ansteuerbar. 
Dartiber hinaus besteht jedoch noch eine andere Möglichkeit,dem Dragon Töne zu 
entlocken. 


” Die nachfolgenden Beispiele geben einen Einblick darüber, wie es möglich ist, 


„ verschiedene Geräuscheffekte etwas anderer Art zu erzeugen. 

Dazu vorab eine kurze Beschreibung: n 
Das Programm spricht die Speicherstellen &HFF23 und &HFF28 ım 1/0 i-Port 
des Prozessors MC 6809 an. Die MPU steuert hier, einfach ausgedrückt, u. a. die 


Durch diese Art der Programmierung kann der User jedoch lediglich Soundeffekte 

durch entsprechende Kontrolle über den 1/O-Port, genauer gesagt über die Laut- 

stärke und Schwellungslänge erzeugen. 
3 Doch wie das Beispielprogramm zeigt, sind auch hier interessante Geräuschvaria- 
_ tionen möglich. 


anderer Hersteller harmoniert, so daß „ 100 FOR F255 TO 1 STEP-1 


auch bei Benutzung von Geräten, die 


nicht zum Dragonsystem gehören, der 
Eindruck einer homogenen Einheit er- 
halten bleibt. 

(Viele Peripheriegeräte anderer Her- 
steller weisen gleiche Farbgebung auf 
Sanyo-Farbmonitor, Seikosha-Druk- 
ker, Sanyo-Datarecorder, etc.) 


Form: 

— Meines Erachtens hat die Außere Ge- 
stalı des Dragon, sowohl des 32K-Mo- 
dells aus auch des 64k-Modells, profes- 
sionellen Charakter. (Ich denke hıer be- 
sonders an die Ähnlichkeit mit einem, 


110 POKE &HFF23,100 
120 POKE &HFF28,l 

130 POKE &HFF?28.0 
2 140 NEXT I 

150 POKE &HFF23,255 
= 160 POKE &HFF23,255 

170 GOTO 100 | 
s Natürlich sind die Variationsmöglichkeiten von Basic aus begrenzt, da schon | 

allein durch die Verarbeitungsgeschwindigkeit schnelle Toneffekte nicht erfolgen | 
* können, 

Dennoch läßt das obige Basicprogramm einige Experimente zu, 7. B. die Änderung 
* der Schleife für I= ..... in andere Schritte oder Zählung. 

Um diese Art der Programmierung wesentlich schneller arbeiten zu lassen, ı5t 
# Maschinensprache unumgänglich. 


Das folgende Assemblerlisting wurde mit dem Assembler „Dream“ erstellt und 


amerikanischen PC aus dem Silicon- ** bietet mehr Anwendungsmöglichkeiten: 


Valley, der eine Frucht als Markenzei- 


chen trägt) Zu bemängeln wäre hier al- * 7D00 


lerdings, daß das Gehäuse nicht kräftig 


genug ist, einen Datenmonitor zu tra- # 7D04 


gen, so daß eine professionelle Konfigu- 
ration einigen Platz benötigt! 


Anordnung der Tasten: | 
— Reset-Taste und Ein-/Ausschalter 


sind versteckt an der Seite, bzw. an der ® 7TD14 


Rückseite des Gerätes angebracht. Die- 
se Anordnung, insbesondere der Reset- 
Taste, beugt einer ungewollten Betäti- 
eung durch den User vor, 

Leider besitzt der Dragon keine opti- 


sche Anzeige über den Beiriebszustand. ® 7D21 


Behelfsmöglichkeit: Benutzung einer 


Steckdosenleiste mit Schalter. Dies hat # 7D27 39 


außerdem noch die Vorteile 


’DO0 ORG 32000 
S6TE LDA #127 Tonlänge Werte von 127-200 
7TD02 C6FF LDB #255 Lautstärke Wert <255 
F’FFF3 U D32MOISTB SFF23 
1D07 BTFF25 STA SFF2 
* 7A dc INCA 
TDOB FTFF23 STB SFF23 
# TDOE BTFF28 STA AFF25 
7D1ll SEOOCH LDX #200 Dauer der Schwellung 
301 F MO? LEAC —1,X 
7D16 26FC BNE MO2 
* 7D18 F7FF2 STB SFF23 
7DIB &31C3 CMPA #200  Tonlänge maximal 
#* 7DID 2DE5 BLT MO! : 
TDIF C6FF LDB #255 
FIFF23 STB SFF23 
1D24: FIFF28 STB }FF25 
RTS 


Das Maschinenprogramm wurde hier ab Speicherstelle 32000 im Ram unterge- 


a) Die Peripherie ist an einem Anschluß * bracht. 


b) der Neizstecker braucht bei Nichtbe- 
nutzung des Computers nicht gezo- 
gen zu werden. 

Die Anordnung der Tastatur ist gleich 

einer modernen elektrischen Schreib- 


Es läßı sich jedoch durch die relative Adressierung überall im Ram verschieben. 


+ Diejenigen User, die über den „Dream“ verfügen, können das Quellprogramm, 50 


wie oben angegeben ist, direkt mit dem Assembler eingeben und entsprechend ab 


>> &H4E21 starten oder für ihre eigenen Anwendungen im Speicher verschieben. 


Alle übrigen User müssen das Programm mit Hilfe des Poke-Belehls in den 


maschine oder einem Fernschreiber, #* Speicher bringen. 


d.h. das Tastenfeld liegt nahezu in ei- 


Dazu helfen folgende Befehle: 


ner Ebene — die Tastenreihen sind nur # 10 FORI=&H7D00 TO &HT7TD27 


unmerklich voneinander gestufl, 
Weiter Seite 11 
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20 READA$:POKEI, VAL "&H"+AB) 


#30 NEXTI 
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40 DATA 86, 7F, C6, FF, FT, FF, 23, BT, FF, 28,4C, F7, FE; 23, B7, FF, 28, BE, 
00, C8, 30, IF, 26, FC, F7,FF, 28, 81, C#, 2D, ES, C6, FF, FT, FF, 23, FT,FF, 
28,39 

Damit ist das Programm im Speicher und kann mit EPEX &H7D00 aufgerufen 

werden. Versuchen Sie einmal folgendes Beispielprogramm: 

200: Il=127 

210 FORI-ITOW 

220 Il=ll+l 

230 POKE &H7DO1ll 

240 EXEC &H7DO0 

250 NEXTI | 

Wegen der besseren Übersicht wurde hier das Beispielprogramm Zeile für Zeile 

aufgelistet. In einem Änwenderprogramm empfiehlt es sich, wegen der höheren 

Arbeitsgeschwindigkeit den Gesamtbefehl in eine Zeile zu setzen. 

Dadurch, daß mit Hilfe des Poke-Befehls das Maschinenprogramm mit ständig 

anderen Werten versehen werden kann, ist eine große Anwendungsvielfält gege- 

ben. 


Um die Geräuscheflekte zu ändern, muß der User lediglich die entsprechenden 
Parameter angeben: 


Beginn der Wiederholungszählung = &H7TED 
Toneffektvariable = &HTTEF 
Begrenzung der |. Tonlolge = &HT7F5 
Start der 2, Tonfolee (Anhangeflekt) = &H7TTF9 
Begrenzung der }. Tonfolge = &H77FF 
Anzahl der Effektwiederholungen = &H7804 


Die entsprechenden Parameter können durch den Poke-Befehl in einem laufenden 
an in die Maschinenroutine eingestuft werden. So können immer andere 
EIICK. 

Das Maschinenprogramm kann noch ergänzt werden, wenn der User an die beiden 
„Rom-Routinen“ ab &EH780C noch folgende Routinen anfügt: 

JSR 3BAD6 

JSR $BAD4 

Dadurch ergeben Sich eiwas andere Efickte. 

Das Maschinenprogramm kann genauso in den Speicher gebracht werden, wie es 
bereits im ersten Beispiel beschrieben wurde (Poke-Befehl/Data-Zeilen). 

Neben dieser Art, Tonefiekte zu erzielen, gibt es eine völlig andere. Hier kann sıch 
der User die entsprechenden Speicherstellen in der Zero-Page und im Rom des 
Dragon zu Hilfe nehmen. 


Die folgende Maschinenroutine wurde ebenfalls mit „Dream“ erstelli und ab .. 


Speicherstelle 30700 dıssassembliert: 


TTEC C601 LDB #0 Wiederholungszähler 
TIEE 8677 LO2 LBA #119 Toneffektwert von 1-120 
17E0 4C LOI INCA Tonwert um I erhöhen 
T7FI BD7808 JSR UPI 

77F4 817F CMPA #127 Begrenzung 1. Tonfolge 
77F6 2Dr8 BLT LOl 

TIEB 8647 LDA #167 zweite Tonfolge 

TIFA 4C LO3 INCA 

’TFB BD7308 JSR  UFI 

TIFE SIFF CMPA #255 Begrenzung 2. Tonfölge 
7800 Z2DF3 BLT LO3 

7802 5C INCB 

7803 CIOA CMPB #10 zehnmal Effekt wiederholen 
7805 2DE? BLT LO2 

7807 39 RTS 

7808 TEC UPI STA 55C Zero-Page Tonlänge/Höhe 
780A. 3402 FSHS A 

T0C BDBAB} JSE  $BAB3 

T80F BDBACH JSR 3BAC5 

7812 3502 FULS A 

7814 39 RTS 


Das Prosramm läßt sich mit EXEC &HT7TEC aufrufen und bietet eine noch 
vielseitigere Anwendungsmöglichkeit wie die zuerst beschriebene Art der Toner- 
ZeUgUNg. 


Hiermit lassen sich alle möglichen Geräuscheffekte wie Sirene, Dampflok oder ar 


anderes erzeugen. Das bleibt ganz der Phantasie des Anwenders überlassen. 
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+ Tastatur 
Anschlag: 
*# — Die Tastatur des Dragon-Computers 
erfüllt professionelle Erwartungen. Sie 
# ist leichtgängig, prellt nicht und ist auch 
für erobe Männerfinger ohne Schwie- 
# riekeiten zu bedienen. 
Die einzelnen Tasten sind ein-, bzw. 
# zweifach belegt, was die Handhabung 
A wesentlich erleichtert. 


Tastatursysterm: 
”_ Die Tasten sind nach amerikani- 
schem System angebracht, was_ für 
® Blindschreiber evil. zu Problemen füh- 
ren kann, da „7* und _Y“ vertauscht 
sind — in Bezug auf deutsche Tastat- 
uren! 
Für den Heimanwender bedeutet dıes 
wohl kaum einen Nachteil, auch für 
- einen Programmierer ist diese Art der 
PR Anordnung nicht problematisch. Kritik 
daran kann von einem Üperator kom- 
„men, der an deutsche Tastaturen ge- 
wühnt 151, 
Er Die Enter-Taste ist groß gehalten und 
günstig am rechten Rand positioniert — 
a, neben der Clear-Taste, 
‚Biese Nachbarschaft ıst für meinen Ge- 
3, schmack nicht optimal, da eine unbe- 
- absichtigte Betätigung einer der beiden 
En Tasten, besonders dann, wenn eine die- 
ser Tasıen innerhalb eines Programmes 
„. (oder beide) mit spezifischen Funktio- 
nen belegt ist (sind), ungewünschte Re- 
„ aktionen hervorrufl. 


Schnittstellen 
“= Anordnung: 
— Linke Seite: 
'Drucker-Interface 
RS:232 
” Kassetten-Recorder 
Joysticks - links/rechts - 
” Video-Auseang 
Rechte Seite: 
* Steckmodulschacht kombiniert mit 
Einschubschacht für das Diskettenlauf- 
” werk 
Rückseite: 
* Monitorausgang 
Nelzversorgung 
* Zur Vermeidung von Kabelsalat um 
‚das Gerät herum wäre eine Anordnung 
# der Schnittstellen an der Rückseite 
zweckmäßiger. Bei der Benutzung von 
# beiden Joysticks und des Kassettenre- 
 corders liegen 3 Kanal über/unter/ne- 
#* beneinander. Eine klare Trennung der 
Joystickschnittstellen und des Kasset- 
” tenrecordereingangs erscheint mit be- 
nutzerfreundlicher, Schlecht finde ich 
” die Lösung, den Schacht für die Steck- 
module mit dem Einschubschacht für 
”* das Disketienlaufwerk zu kombinieren 
- außerdem ist die rechte Seite nicht der 
beste Platz, ein Diskettenlaufwerk an- 
' zuschließen, da hierdurch schon wieder 
”* Weiter Seite 35 
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Weit draußen in einer entfernten Ga- 
laxis lebt ein Volk aufidem 2. Mond des 
Planeten Carylos.-Da der Mond keine 
Amosphäre hat, leben die Bewohner in 
kuppelartipen Städten. Eines Tages 
werden diese friedlichen Bewohner je- 
doch von blauen, fliegenden Insekten, 
den „BLUE BUGS“ überfallen, welche 
die Bewohner vernichten wollen. Als 
einziee Waffe steht eine Torpedokano- 
ne zur Verfügung, mit welcher Sie die 
„BLUE BUGS“ vernichten müssen. 


Nach dem Eintippen wird das Spiel mit 
RUN gestartet, Besonderheiten beim 
Spiel sind nicht zu beachten, da selbst 
die «ALPHA LOCK> Taste eingerastel 
sein kann. Das Spiel wird Ihnen cıne 
kleine akustische Überraschung servie- 
ren. Hierzu sei allerdings nichis gesagt. 
Lassen Sie sich einfach einmal Überra- 
schen. 


Nachdem das Titelbild erschienen ist, 
können Sie mit dem Joystick den Level 
wählen, in dem Sie beginnen wollen. 
Der Level (0 bis 9) wird oben lınks ım 
Bild eingeblendet, und verändert sich, 
sobald Sie den Joystick bewegen. Ha- 
ben Sie Ihren Level gewählt, so drücken 
Sie den Aktionsknopf, um das Spiel zu 


beginnen. 


Die Blue Bugs greifen in Wellen an. Vor 
jeder Welle wird der augenblickliche 
Level im Planeten angezeigt. Ein BLUE 
BUG erscheint mit laulem Getöse auf 
dem Bildschirm. Dieser BLUE BUG 
wirft seine Eier. ab, die Ihre Laserkano- 
ne zerstören können, sobald diese be- 
rührt wird. Eine Kanone wird immer 
dann zerstört, wenn es einem BLUE 
BUG gelingt bis zum Boden des Mon- 
des vorzudringen, wenn ein BLUE 
BUG die Kanone berührt, oder wenn 
diese von den Eiern getroffen wird. Ins- 
gesamı stehen 5 Kanonen pro Spiel zur 
Verfügung. 
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Nachdem eine Welle vorbei ist, wird 
der Level erhöht (maximal Level 9), 
und eine andere Art von BLUE BUGS 
greift an. 

Insgesamt gibt es 3 Arten von BLUE 
BUGS: 

l. Bird BLUE BUGS 

2, Spider BLUE BUGS 

3, Worm BLUE BUGS 

Diese 3 Arten wechseln sich von Welle 
zu Welle mit ihrem Angriff ab. 


Nachdem Sie alle 5 Kanonen verloren 
haben, erscheint wieder das Titelbild, 
und Sie können wieder den LEVEL 
wählen. 


a 


Anzalıl der BL UE BUGS pro Welle und 
Punkte pro Treffer: 


Anzahl Punkte 
LEVEL BLUE BUGS pro Trefier 
0 a 10 
l 10 20 
2 12 30 
3 14 40) 
4 16 50 
3 15 60 
Ö 20 70 
7 22 s0 
5 24 90 
0 36 100 


Wir wünschen ein Errorfreies Eintip- 
pen, und viel Spaß bei... BLUE BUGS 
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I£+ arg 
| E: U E - B UGS 
12 ee = 
I* TI 99/4 A 8 K-BASIC # 
id I# Steusruns: Joystick # 
158 |k--- nm nenn nn 
ie IK cc) 1984 Treonicsoft i 
ira !# all Riehts YV.Becker # 
- ee ee 
a6 DATA 559, 323,699, 523, 698,397 103: 6993: 6939: 923,699 3,323: 59817 1493 ,523:; 448 ,659,5323 
659, 523:699, 523, 30800. 30008 
1A DATA 659,323: 6599, 523,695, 987 ı 71893: 699, 699,1 923 1 693, 923, 397 , 493, 523; 440, 440,349 
‚dd, 349, 448,349, 38B00 , 308098 
224 DATA 440,349,448, 349, 440, 349,523, 440,597 : 493,587, 493; 523; 440,449, 349, 448,349 
"+4, 349,493, 391,523, 4 
2368 DATA 493;391,493: 391493: 391. 493,391. 433; 391 30608, 308080, 391.329, 493, 391,387 
‚493.587 .:493,523, 440, 493,391 
24d DATA 449,349, 448,349, 493,391, 923, 440, 639, 923: 699 ı 923: 699, 923: 30008, 36688, 8,0 
58 RANDOMIZE 
zen OPTION ERASE 1 
=76 bIM C$i4),CFC4),PT&4),30C45 
28 DATA 128; 132,136. 140, 293; 261, 293,329 
>94 RESTORE 26808 
88 FÜR I=1 TO 4 ı: READ CFEI>t er NEAT I :+ FOR Iei TO 4 :: REAb SCI: NEXT I 
a en :: CALL SCREEHL2 >: CALL GERFIK :: FOR Is TO 14 =: CALL COLORCT; 
1,1374 a" 
en :ı GALL COLORCB, 2,2: 1:11, 2;2:16, 2:5: 9, 2,6, 13:15, 3:11: 2, 18,11, 2; 11; 
11,2: 12: 14,8. 
38 CALL COLORE3.13,2, 4:13, 23 
348 EALL CHPRTS FTSE)? 
3556 LW=1 :: CALL TITEL{LYI 
se8 BlGed ıı ZeB ı: Pe :: GS=5 :ı CALL PUNKTECP>: 1 CALL HOHAR: 23; 26, 121,683: : 
FALL. LEWELCLVI:: RESTORE 
Ara Zyezv+l :t: IF ZU>3 THEH ZVal 
388 ON ZW GOSUB 758:8208:590 
=38 GOSUB 1828 :: CALL COLORCH2;8) 
4aa EALL MOTIONC#Z,LY,ENb#30-15 >) 
“j6 IF STE THEN 438 
-B SIE=1I :: CALL FOSITIOHC #2, #A,YAP:: ECALL SPRITEC #468, id, KA+ 15; YA; S+LV, BI 
435 FOR LOOf=i TO 4 
445 RERb MIL,M2 :: IF Mi=B THEN RESTORE ::-GOTO 44 
+5 CALL SOUNDG-388,11:5:M2: 5? 
458 CALL C1 :: CALL FATTERHE#B2,. CF LOOP3F I: CALL JOYSTC1l,R-T>t: EALL HOTIONCHL:8, 
Ekk):: CALL PEERKi-31877.R>:: IF CA AND 323=32 THEN 726 
478 CALL KEYE1,T»S?:: IF T=18 THEN SKIF=el :: GOTO 538 
4856 CALL CZ :: EALL JOrSTel.8, 19H ECALL MOTIONC#L:8, 58H I: : EALL KEYCL:T»SI:: IF 
T=18 THEHN S5KIF=2 :: GOTO 538 
456 CALL FOSITIONCHZ. AA: TAF:: IF AA>=158 THEH 748 
seh ERLL POSITION #4, KA, VA>:: IF KA>158 THEN CALL BELSFRITECH4 >: STE=B 
ld HEAT er 





SseBb LOTO 468 

ee MOTION #1,8,8>5:: CALL POSITIONC#1,Al,Yld:ı CALL SFRITEC#H3, 124, 11,137, V1 
540 CALL SOUNDT -158;,-5: 87:1 CALL FOSITIONC HZ, RZ, T2 7°: IF ABSCYI-Y2 3K16-LV THEN 5 
Fi 


339 ECALL BELSFRITEC#3>:: READ Mi,M2 :: IF Mi=8 THEN RESTORE :: GOTO 558 
365 ERLL SOUNDG -868,11,5,M2.5) 

S’B DON SKIF GOTO 458,496 

sss ERLL DELSPRITEC#35:: CALL FATTERNC#HZ, 363: : FOR Is TO 5 :: EALL SOUNDS -158,- 
fılatı NEXT I 

558 CALL FATTERNC#HZ.483:: FOR I=6 TO 18 :: ERLL SOUNDE-158,-7, 12:8: NEXT I 

sad EALL PATTERNC#HZ,923:: FOR Isll T0 15 :: BALL SOUNDE-1589,-7, 1:5 NEXT I :: CA 
LL DELSPRITEC#Z,#4) 

Den en .ı EALL FÜNKTEEP}:: STEG :: BUG=BUG+1 ı: IF BUGS6+2#LY THEN 526 E 
LSE 

628 CALL SOLUNDE -18,38888,.8 2: 1 Lyaly+l :: IF LV>189 THEN LVs16 

E34 CALL LEVELELYW> 

45 BUG=B :: CALL COLORG 1, INTCRND#13 9+3, 2, 2, INTERHDA13 943, 22: GOTD 378 
ER ‚8,;B8>:: EALL PATTERNC#H1,805:: FOR I=s8 TO 5 :: CALL SOUNDbE-280, 
L 4 | 

568 CALL FATTERNC#HL,84>:: FÜR Is6 TO 18 :: CALL SOUNDS 268, -5,19:: NEXT I 

Ss? CALL PATTERNCH1.889:ı FOR Tell TO 15 27° CALL SQUNDE-158, 5, Id: NEXT- I 02 CA 
IL BELSFRITEC#I} 

ERB RERD Mi,MZ2 :: IF Mi=8 THEN RESTORE :: GOTO 688 
556 CALL SOUNDK -368,.M1.5,M2,53 

rag GS=GS-1 :: CALL KANDHEIGS}:: IF GS=8 THEN 184g 





ss. 6 0 0 0 | rer ro ee oe oe 
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GOTO 398 ELSE STE=d :: GOTD 47e 


728 CALL COINCC#I,#4,16,ST2:: IR ST THEN’ CALL DELSFRITEC#4): : CALL MOTIONC#2,8,R 


NHD&ZA-195:: STE=S2 :: GOTO 850 
120 ALL N TERRITECH? #4} GOTO 6 
74 } ‚#4: 

’508 ae ea 060301 0201 B2ECHEGRGRGORBALLESF?1EELBEALEREAR H 

?eB CALL S0OUNDE 508, 349,0) R 

rra Chiz)e HOT SETBELLEETEIBLDZBIHRRRHARRARHTRBALLEIFESELLHBEARZ 

ea CALL SOUNDE 6GB, 261.8) = 

aA else BRRERATTEFLLEITRIESERDEHBERRHRRAAKHABRLLESF7IELLER" 

"aa CALL SOUND 698, 293,8) 

sıa GöTO 958 ' 

320 C#C | )="00883973CDBElF3 LEEciieezeeehheenellEB3s1FE4l8565331306094 

23 CALL SOUND 688. 349,08) ? 

54c EBC 2 9" GEBE RI EEDUSSR P2U BE 131 B2PRDBBERURBERETBEDEBEE ERS ES 

s58 CALL SOUND 6858, 261:6 

Aa a BEDDEPFLES2DE 1 E30BOREBBRLASBEAC SEBGBFEGSCHTBLBOK: 

Br He et, 8) 

s38 Gi | : 

29m Ci 1 )e"OdnaRaatlEaF73E LdECHEBHDeegegdegenadleuzlzErrE3tlg” 

sad CALL SOUND: 696.349,8> 

1A DE 2 2A LE3F73214BBBRRRABHRERRADARIEHERERBRRBSCEFATEZ" 

578 CALL SOUHNiX 6858, 281;8) 

334 3)" HRRTDDARRALLE3311ZHRERERHHHEAEAHHRARARABHABEBSCLBFLH" 

ade CALL SOUND 6GB, 293,8) 

389 CALL SOUNDC60, 261,8) 

“sd CALL A N (RN, 

378 FOR lei TO 4 :: CALL CHARC4EI+124,C8C 195: CALL SOUND 3BB,SDET3.89:: NEXT I 
986 CALL SOUND« 308, 349.8) | | 

#38 CALL DELSPRITEC#HLI:: CALL MAGNIFYESI:: CALL SOUNDE 308, 261,0) 

1458 CALL SPRITEC#1,76,16: 153,193): : ECALL SOUNDE 388, 174,85:: RESTÜRE 

1818. RETURN he: 

1828 CALL SPRITEC#H2,132, 11,1:1:8,126, 83,132, 11,1, 1,8, 126 3 | | 

1538 FOR I=s5 TO 8 STEP -1 :: CALL 30UHDE -58:,-6, IP: MEXT I :: CALL BELSFRITEC#S} 
'::ı CALL MÖTIONCH2,8,09:: RETURN EN 

iada CALL DELSPRITESALLI: STE=8 :: CALL CHARBACKUPTSEE >>: GOTO 359 

1856 SUB BILD 

iesd DATA 28,18, 72:1,21,10,73:, 1,18, 16, F2, 1: 19,16, 73,3; 18, 24, 72H 1, 19, 24, 794 3,12,2 
+ r2> 14135294735 

1478 DATA 18,25, 74,4,17, 26:74:35: 19: 27, 74:3: 18, 28, 72: 1:11,28,73:8.19:28, 74,3 
iA6a DATA 14,29, 74,8,14,38,74,8, 12,31, 72, 11 13:31, 73: 1,14, 31, 74:8,17, 32, 74,53 
1934 DATA Abe, EGbGo,EbbGF- 17; 7,15:13,9,22 

1188 DATA adbef , chbbbb4, "bbbbbh. bbbbbrs , obbbtwi  nbrsuwd.mP9g1k 

ı111# FRESTORE 1866 

112 ECALL HCHARC1,1:31,768) Beten 

Een I=e1 TO i68 :: CALL CHART IHTERNDEZO >+1  INTERND#31 3+1 , INTCRNDEL. 5 3445 3: ; 
i11dä FOR I=1 TO I2 :: EALL VCEHRARC INTERNDFZB P+1 , INTERHDFS31 PH 1,33 2° 3 HE#T I 

1150 FOR I=i TO 28 :: RERD 2:S:CHA = CALL YCHARSZ.5:C;Adtı NEHT I 

iieA RERD 2C18,0235.03# 

1178 FOR I=i1 TO 3 tı READb 2,5 

1188 DISPLAY ATLZ-595IZEC 33:61 

1154 DISFLAT ATi Z+1,5-1351TZEC 5 I: CH 

1256 DISPLAY ATi Z+2,5-135IZE(L 5 635 

1218 NEXT I 

1278 CALL HCHRART 22, 1,1208,96) 

1736 RERE CiIS :: DISPLAT ATi 4,4 )5SIZEC5H: CIE 

i244 FOR Is5 TO 3 :: RERD Ci$ :: DISPLAY ATC1,335SIzEC7 Cl :: MEAT I 

1758 READb Cis$ :: DISPLAY ATC18,4)STZEC 59H: 515 

126586 SUBEHD 

i2ra SUB C1 t: CALL COLORCS-S3,23:: SUBEND 

1288 SUB C2 :ı EALL COLORS. 10,23: ı SUBEHEO | 

1254 EUB STELL{LY IS: CALL JOYSTEL-K, TH: IF & OR T THEN LYeLbv#+l 

1353 IF LW>iB THEN LV=i 

1318 DISPLAY ATi1:19SIZEC 1 PEUSING "HH: LV-l 

1326 SUBEND air TER 

[aa SUB) LEVELCEN I CALL DECSPRITECALLI:: CALL MAGNIFYC2>I:: CALL SPRITECHI,AF+L 
Yin ‚4 I 

1248 SUE PUNETEXP}:: DISPLAY ATi 1:22 ISIZES 7 HE USING "HRHRRHR":P >: SUBEND 

13585 SUB KANDNEIGS >} 

1388 CALL HEHART 23, 265465; 1287 

1378 SUBEND 

i35B SUB CHPATEFTSC >?) 

135A FOR Isi TO 4 :: FT&KlIde"" :: FOR Keß TO 3 
TS IT3ePT$C IT IER$ :: HEXT K :: NEST I t: SUBEND 
1485 SUE CHARBACKI FTSE) 


:: CALL CHARPATCIZ4+IKEHKU ABI: P 


ia CALL SPRITEC#1,76.16,153,1939: CALL DELSPRITEC#4):: IF STEX?Z THEN STE=SB 














FEBRUAR 1985 













1418 FOR I=1 TO 4 :: EALL CHARS IZ4H4#H I, FTSE 133: : NEXT I ©: .SUBEHND ı 

i420 SUB TITEL{LY>) 

1449 DATA 136, Ba. 1os.1a0; 8, Fler 186. 1an 71, 187,140, 14, 71,139 

1459 RESTORE 1438 | | 

1468 ne MAGHIFYC4>:: FOR I=s1 TO B :: READ CH,F,Z,5 :: EALL SPRITEC#1,C,F,2, 590 1 
IE# “ 


Ti 
1478 RESTORE 
{42a CALL C2 sı CALL KEYC1,T,S9:: IF Te18 THEN 1558 
{439 RERD M1,M2 :: IF Mi=8 THEN RESTORE :: GOTO 1498 
{520 CALL SOUND 359, M1,5.M2,55:: CALL STELLELV) 
1518 CALL ©1 :: CALL KEYCL,T,S3:: IF T=18 THEN 1558 
1524 RERD Mi,M2 :: IF Mi=8 THEN RESTORE :: GOTD 1498 
1530 CALL SOUNDC3SB.M1,5,N2,59:: CALL STELLELVA 


1s55A CALL DELSPRITECALL>I:: CALL MAGHIFYE3H: CALL SPRITES#HL.76.16, 153,193) 

1568 DISPLAY ATCL,1ISIZELII:" I" 

1578 SUBEHND 

1580 SUB GRAFIK 

1599 DATA ‚BOABBBBSICSELCAB, 90282828. 0028287028712828,81492911H9C4320F ,F1A285991 
Ar8418,01828408 13A4433F | Ss 

i6aa DATA F94028 1083840281 BB40200 109740888, 3122050980241, Dzhhyeed4le. 504 
aa1BEB009241 ‚BHERLERRAHSALAZ. 16091R08 | TR NEUEN | 
i6ia DATA AG0900B09B2 ‚ B0BR4AB 19204. ILasEnsessest, 1838781813181830, 3lassae 
18347E . 306686 1L1CAS6E3LC , ECELECSLTEBLECHT 

1624 DATA TERBBATCBEAEBEAL LCIA6BEATLEEEEET , FETEDEAL1330303, BUEESETLALEEEEAC. 306 
E66563E860C38, BB101B1A38387C Bnnazasaneaniee 

{636 DATA 819282050502813; FETEDIERT7B3., BECHLBEGBEACHS, BBBC LELAFEZT LEST, BEGHBBABTER 
FERFF ‚ BaDBREHABBH? CT, BOBHBHHBRDEASSSE | 

{Ada DATA B1B30707OF 1F3C2D, SOLHEBEBFAFSFEFE, 7D7D7373F 1ESCHFF ;FEFEFEFEFFFFFFFF FF 
FFFFFFFFFFFFFF ‚ O0B03F3F3F3F3F3F ‚ 3FaFaF3FSF3FaFSR 

{654 DATA FFFFFFFFFFFFFFFF  09444853060594844, 0101019101030306 , 45EDABFABAFEBTF3, 89 
BAEBBBSALaLBs. A2B7DSSFSDEFEDEF , 2882088101 100246 | 
1660 DATA BSACHB22ERDBBTF3. 144100818090C24,, 2B7DISB4SEDE 1BF ‚ 6602608881109245, 910 
CAMZOBADBBS21 , BadALEDLENFO424, 209740 1B446DE 108 

1678 DATA 0040000689 10904, 01OSAZDRBZBAAdD1 ‚ DRDOURAANAIAHZ2. 20114002440 10088, 00400 
6058948903 , BOH2AGASGHHA41 ‚ BAAURAAGHZAAHHRZ 

inei DATA BBdiRs 1 aanada2. 3F3FaFFFrFrFrrFF. BoBeoaaaa7ıF3arF?F.FFFFFEFFFFFFFFFF . B8B1 
BaararariFiF-BLIFFFFFFFFFFFFF »BBFEFFFFFFFFFFFF 

1696 DATA BEABBACBEAFSFECFE , BEBELBEBERFRFBFS, FEFLFLFEFEFEFEFFsFFFEFEFEFEFCFEFC,F8 
FEFGEGEACHE , FEFCFSERL, 3FBESBEBTSFFFFES | 

1700 DATA TFaFiFOrOS, IFLFOFOTOTB3B1 .FFIFTFTFTFIFSFIF ‚FCTODCEBFCFFIF@L.FFFOGBBAGE 
AAFFFF » FFEFCTFIBACFF LFF » 9FCFESESFICTEFFF 

1718 DATA FFFFFFS3BTFOSERG , C3FaBOFFFFFOFFFF , FFEFCTBTOFOFaF? .CS3FELBTOFIFFFFF,FFO 
AFFBBFFAGFF ,FFEFEFEFGCTBAFF ‚BAGAOR7COE1B207C 

1728 DATA G918262048202018,0101818181038501 , B3R7ED 18, BOIBSAERSELHFBB, CHEBBALE, SC 
S2n12121212122, 3E21202020Ra613F De * | 
1738 DATA BCl211111214181, LOSBASASASAB4SEZ, ‚B044444444C54638, ‚,00708838F680397, Fa 
BB848434B43BF | | | 

1748 DATA 28849282828284F8, BRIGABARDEHOHA4Z, 4242424242424230., BRAHAEIBLAABGASE, 40 
4u405E42424227 , GBHAGHHBEBBRAGZE , 494040300202027C 

{7564 RESTORE 1599 ei | 

i768 FÜR I=32 TO 143 :: READ CH ©: CALL CHARCI,C$):: NEXT I 

1778 SUBEND 
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Perlentaucher 


TI 99/4A 





Ziel des Spieles ist es, einen Perlentau- 
cher auf den Grund: des Meeres zu 
steuern und Perlen aufsammeln lassen. 
' Am Anfang des Spiels steht der Tau- 
cher auf einem Boot, Sie müssen nun 
versuchen, dieses Männchen durch ei- 
nen Schwarm gefräßiger Fische sıcher 
zu den Perlengründen zu bringen. Da- 
bei müssen Sie darauf achten, daß Sie 
die Fische nicht berühren und Ihre 
Sauerstofftanks sich nicht leeren. Ge- 
schieht dies trotzdem, verlieren Sie ei- 
nes Ihrer fünf Leben. Hat der Taucher 
den Meeresboden erreicht, muß eine 
Perle aufgenommen und zum Boot zu- 
rückgebracht werden. Nachdem die 
zehnie Perle zum Boot gebracht wurde, 
beginnt eine neue Runde, die noch 
schwieriger ist. | 
Die Steuerung des Spiels erfölgt mit 
dem Joystick, Der Taucher kann in 
acht verschiedene Richtungen gesteuert 
werden. Die Sauerstoffltanks können 
nur aufdem Boot aufgefüllt werden. 
Die Punkte verteilen sich wie folgt: 
—- eroße Perle 100 Punkte, 
— mittlere Perle 50 Punkte, 
— kleine Perle 25 Punkte. 
Yon den kleinen Perlen gibt es 5, von 
den mittleren 3 und von den großen 2. 


PRRRTT ER TE. 

za! * ELLLLEERERTERERTEN 

ine BESHELcne Ran: er 
110 TE ecya2. 11.00 4x 


\2e EN nHLFRART-MAHN a 
£* 

Em Bene *% 

LE FE 

za 1## gar rk 

em YET eu unstcrJuvsTtlck % a 
E- ja) B: 

Mn ++ era 
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Der Bildschirm ist folgenderweise au 
geht: 

Oben Iınks steht die Anzeige für die 
Punkte, rechts daneben ist die Anzeige 
für den High-Score, Darunter befindet 
sıch die Anzeige der noch vorhandenen 
Taucher. Daneben wird angezeigt, ob 
Sıe eine Perle aufgenommen haben. 
Unier der Luftanzeige befindet sıch die 
Rundenanzeige. 


Einige Programmzeilen 
sind so lange, daß der Com- 
puter sie nicht annimmt, In 
dıesem Fall müssen Sie die 
Zeile mil „enter“ beenden 
und mit „FCTN+REDO“ 
zurückholen. Ste können 
die Zeile nun ganz normal 
beenden. 


EL E = See 3 = © 5 
& a tk Kern, 5 = N RReE SL nn 






















238 ı 

249 | 

254 GOTO 298 2: GE: RU :: ME rt Dorn Pllı ee PA sr PE He LE ee UM = MM HP: 
e LAN An ran BB CE: DO en er Sur G 


end Hl Fl ee Pl re PA rt ZU ZZ # LA 1: TON 

“r9 ERLE CHAR: CALL CHARPAT =: GALL COLOR :: CALL SCREEN :: CALL GEHAR :: CALL 
HEHAR +: CALL DELSPRITE :: CALL SOUND 34 BALL FOSITION :: CALL LOCATE :: CALL P 

ATTERHN :: EALL MOTION 

ei CLEAR :: CALL MAGNIFY :+ CALL SPRITE 2: CALLKEY 2: CALL I0OYST =: CALL 
ING 

aa 

=438 ECALL SCREENC2I:: FOR I=2 TO 8 :: CALL COLORC1,135.239:: NEXT I +: CALL CLEAR ı 

: RAHNbOMIZE 

sie CALL CHAR 64, "304299A1A199423C" , 136, "SCHZBlE13181423C" ) 

a2 BISFLAY ATS1D, 27H "FFEERLEN TAUCHER" 

#38 DISPLAY ATC12,39:" B1984 Br WERGEN" :: DISPLAY ATC14,59: "WOHLFAHRT-MAHR!"" 

Sfrnde I=1 TO 12 #: CALL SFPRITECHL, 136, INTd RNbFL4I+3. 230, IE28, - INTCRNDE19 5,05: | 

3589 CALL SOUND« 188,446,89:: CALL SOUND 106,559,.07:: CALL SOUND OR. 669,83: : CALL 
SNAUHDE 289,778, 0) 

ss GuSLUB 1984 :: DISPLAY ATC24.25:"TASTE DRUECKEN" 

ara CALL KEYCB,K»S2:: IF S=8 THEHN 370 

sea GCALL  SUUNDG199.738.89:: CALL SOUNGE 198,869, 85: : CALL SOUNDGC 190,559, 831: CALL 
SOLUNDE 280,44, 

334 CALL CLEAR 

448 ECALL DELSFRITESALL> 

414 DISPLAY ATC 18,25: "BRAUCHEN SIE EINE ANLEITUNG JH 

zu 

429 CALL KEYCB,K,SP:: IF 5=8 THEN 428 ELSE IF K=?73 OR K=118 THEN 568 

+34 CALL CLEAR 

442 DISFEHT AT2 1462: "FERLEHNTAUCHER" ©: DISPLAY AT3,29: "SIE MUESSEN EINEN TAUCHE 

R" ++ BISPLAT ATCS: 2 "DURCH EINEN FISCHSCHWMARM ZU" 

43a DISPLAT ATC7.23:"PERLEN GRUENDEN STEUERN." :: DISPLAY ATC9,23:"DIESES IST KE 

INE LEICHTE" :: DISPLAY ATCI1-2I: "AUFGABE, DA DIE FISCHE" 

459 DISPLAY ATC13,25: "SCHNELL UND GEFRAESSIG SIND" :+ DISPLAY ATC24.,.303: ">" 

47a EAlLL KEYCBIK:S>=: IF S=A THEN 478 

dan CALL CLEAR 

49A DISPLAY ATC1,6 3: "PERLENTAUCHER" ©: DISPLAY ATC3,29: "STEUERUNG:" := DISPLAY A 

1.5.29: "SIE MUESSEN IHREN TAUCHER, " 

ad DISPLAY ATK 7,23: "MIT HILFE DES JOYSTICK 1." :: DISPLAY ATC9,23:"UEBER EINE P 

ERLE STEUERN" <= BbISPLAY ATEll,2>:"UHb BANN DEN AKTIONSKNOFF" 

lB5 BISFLAT ATS 13,2 "DRUECKEN: MENN SIE EINE " =: DISPLAY ATC15.29:"PERLE AUFGE 

HOMMEHN HABEN." :: DISPLAY ATC17.29:"MUESSEN SIE SIE ZUM BOOT" 

Seh DISPLAY AT 19.29: "ZURUECK BRINGEN" :: DISPLAY ATC24,399: ">>" 

sa GALL KEYCH,.K,52:: IF S=8. THEN 530 

"43° EALL CLEAR 

s>8 EALL SOLUNDT Iaa.449,09:: CALL SOUNDE 198,5598,89:: CALL SOUND IOA.668,.A1:: CALL 
SAUNDE 208, 78.0) 

Se ZEICHEN DEF. 

“ra EALL CLEAR 

Ss CALL CHAFFATC7S,NMSEI:: CALL CHARC74.MEI: CALL CHARFATCSS: MEI: : CALL CHARCS?T, 

Ms >:: GCALL GHARPATCS9, ME}: :  GALL CHARCBL.MS) 

San. EALL CHART 96, "BE0bBEeellebedeezereeeeteahararzezasaaate 

Aa" IMAHN STEIGEN 

ech CALL CHARt 120. "Babsa2Bzizn>ßbibieeldzaaeeeeeezensagearaadheeeeeeneegnn 

San" HI MANN SINKEN 

51A EALL CHAR 164, "BOGBaBaaeae IF LEBBBEBBaadaggeangenaggmead4smrgEdiAgpggdagaeggn 

aaa" DIMAHN LINKS | 

524 CHLL CHAR 153, "B006600602851BF 2752 0eendaeeeggahaearsbsaageneene 

Han" SI MANN RECHTS 

Er Rn Lu a ER SED ER BEER EEE SR ES EDER 
Na"o!lrISt 

nr ans 11627 SROBDERBSOREDDDFRDIEREGBEH ERDRER BRRRBDORER ST ERST CE SONG EODEN 

Haas" nıFls 

en En 2 @n 7 DDENBEE BAT SER TE IERBEUOSR RE DESDEBEGD EOSREDEDFNEBEEOBUNR 
a CH. 

ns Ein = ZOLBOBNEBIE IE BE SIT Den Zen Segen Dan CE EDER ERGD 

Ba" SIFISCH 

Su Sn Bu SBRERFFEFFERTESCOROBBRSSTETEFUSERDDBORRDT SCI SBD REDEN 
AA"IIPERLE 

OBER en Sn SEORSTRSERGERERETERREERFREGFERERRESFERPEESPEGRSEERTERE 
5" )1B0 

38 CALL  CHARC 148, "OossssbasiaeraddadaddeadaaaerFErTbggddeadggadaggeegageeaggg 


| 
MEI IM: ME: MG. GE: HM. N Gil: <a ai GB SB CH: GA GH: A GE: BG she Hin Ha Me «ih He” Mi <a <oime me sah mim mimir HE Tamm HN. HEBEN FR SPESEN > ER. SEHR EEE" SEHE“ MANS FE" sim FH CE HEHO Fin: "eg: Mine me: SpmE: HH) Sem FE "EEE > FOR „HR. CAS > GAREN" EEE" EA: SEA GG EB: Ha ih > mi: ME: om: FT FE HET" "EN ST ET CE EEE GG = EG EG EG: GT GE GG = ET TE EEE TG" SENT HG N: ET ER STE RT ET CET RR m N 
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- Ba" BOOT 


"oa CALL CHARCa2: "FEFFFFEFFFFFFFFFF" 40: "FFFFEFFFFFFFFFFF" .884: "FFFFFFFFFFFFFFFF" 
1A CALL CHART 64, "Osaaaeasneeeieeegeeeeeeeeeeeeeeeeeeeieeneaeene 

AAa"IZEIGER 

0 CALL CLEAR 

aa IBEILDSCHIREN-MASKE 

748 CALL COLORC2,8,8,.1,9:1:8: 91,13: 11,9, 14, 7,8: 7, 2.198: CALL SCREENC6} 

sa FÜR I=3 TO 7 :: CALL COLOR 1, 2483:: NEXT I 

ea PilPLU.PA:PE=B :: LE=5 :: Alez4 := MMeles 

78 CALL BELSPRITESALL: : CALL CLEAR 

Fer CALL HEHARCL.L: 49,192 5: SALL HEHARS 23:1: 88,645: 5 CALL HEHARC6, 15,196} 

=39 CALL HEHARCE.18:137 5: + CALL HEHARCE-17,1389:: CALL HEHARG6,19,137 7 

=aa CALL HEHARCS- 16: 1485: CALL HCHARCSH LFI 1#L>} 

1A EALL MAÄGHIFTE 3} - 

a8 DISPLAY ATe1,19SIEEL 11 3: "PUNKTE: ";FU :: DISPLAY AT21.1538IZE{ 143: "HI-PUHNKTE: 
"; HPII 

334 DISPLAY ATC2,33512ZE0 57: "LUJTE” 

Ada CALL HEHARCZ; 19,88,153 

ssd CALL SPRITE© #28,64: 16:9, 1963 

sad CALL : SPRITEL #27:96,2,.19,2385:: DISPLAY ATC3; 26 3>51I2EC 2): LE 

Ara ISPIEL 

828 RU=RU+1 :: GE=RU81.5+3 :+ LU=121 -: DISPLAY ATL3,ZI5TZEC 83: "RUNDE: "; RU 

SafA RESTORE 966 

4a DATA 112, 185,1,128, 6, -1+ 112, 3,1, 128, 114-1: 112,41: 128,19. 1, 112,31 

1a FOR l=2 TO 22 STEP 3 :: BERD AR.BB.CC :: DE=INTSRNDKS I: CALL SPRITEC#HI.INTC 

RHDKZ+4+AR, BB. I#3. 7+42, 108,8. GEFCC+DDb } 

s2A CALL SPRITEC#I+L. INTERHDEZ IH4H+AA, BB, 133. 7 +42, 96,8. GEFGCHOD I: CALL SPRITEC#I 
+2, INT< RHOKZ )t4+A BB; 183. 7+42: 132,8, GEACCHDD 3: ı NEXT I 

334 CALL SPRITEL #22,124.2, 134, 209,9,-GE-7) 

4a CALL SPRITEC #24, 115; 2,141, 169,68, GE+18 >) 

959 CALL SPRITEC #25, 124: 2: 157, 209,8, -GE-13>3 - 

sa GASUB 14460 - 

ara ECALL SFRITEt HL, 96,2,24, 129) 

sea CALL SOUND 198,229,85:: CALL SOLNDE 199, 358.09:: GALL SOUND 199,506,85 

“9a ISPIEL HAUFTFRÖGRAMM 

Isa Hu=szd4 ı: Mıi=i2s 

1nia CALL JSOYSTEL.K- Ye EALL KEIÜLSKSS TE: LU=LU-1 = CALL LOCATECH28,9,LU+69 9: 
IF LU<ES THEH 1618 

1828 CALL COINCCALL: CH: IF C THEN 1518 = 

ıin39 IF K=18 THEH 133% 

id4a IF X=-4 THEN 1098 ELSE IF #=4 THEN 1156 

1Asa IF Y=4 THEN 1218 ELSE IF Y=-4 THEN 1288 

insd CALL LOCATECHL-MH. MM? 

1A?8a CALL COINCCALL:CH : IF C THEN 1618 

iasgs GOTO 1le16 

1435 I|SCHAIMMEN LINKS 

1198 CALL FOSITIONC#HI.K1.YLd)t: IF Kleds AND Y=4 OR A1l=168 AND Y=-4 DR A1r4s THEH 
ıB6A ELSE IF Yl=8 THEN 1060 

iiia IF #1>169 ANb Y=-4 THEN 1066 

1176 CALL FATTERHC#1:184 > | 

1i23a MMeMhM-8 :: MishM-2HY :: CALL SDUNDE-1,.-1,8> 

1144 GOTO 10656 

1159 ISCHWUIMMEN RECHTS 

118A CHLL POSITIONCHL-KL,T1):: IF Kl=dS AND Y=4 OR Kl=168 AND Ya-4 DR #148 THEH 
igada ELSE IF Yi=240 THEN 1060 

11ra IF %1%>1659 AHb 'Y=-4 THEN 1958 

ı1irda EALL FATTERHCHL, 108) 

1198 HHellk-2rY :: MMsMN+B 2: CALL SOUNDE-1,-1,8> 

1254 GOTO 1068 

1714 !IMANN STEIGEN | 

122A CALL FOSITIOHC#T: AT, VI? | 

1236 IF #1<>48 THEN 1258 ELSE CALL GCHARCINTEHLFE INTCTL/55+1 BO) 

ı?4a IF EO<>137 AND EiX>138 THEN 1068 ELSE 180% 

1258 CALL FPATTERHE #1 ,963 

1768 IF %1<43 THEH 1278 ELSE WU=lM-3 =: GALL SOUNDE-1,-1,89 

i?r7a GOTO 1988 

ı1z#6 IMAHH SINKEN | 

1238 CALL POSITIONCHLSKL-YLTT: IF K1=168 THEN 1868 ELSE IF #1=24 THEN HH=HH+IE 

13A8 GALL PATTERHC#1.109)} 

1216 HH=kH+S >= CALL SOUNDE-T1,-1,43 

1#79 GOTO 1066 

1#386 IPERLEH AUFHRARHME 

ıia49 IF FE<>O THEN 1818 _ 

i35a CALL POSITIOHNCH ,X1;:Y19:: CALL GCHARCINTCHLFS IF. 75: INTEL +, 75, PL} 

13684 IF Fi=32 OK Pi=98 OR Pl=48 THEN CALL SOUNDE-1,778,85:: GOTO 1378 ELSE FE=P1 

: GOTO 1390 
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1379 CALL. GCHÄRC INTCKL/B +. 75, INTE Y17/B 341.75: P2) 

i288 IF F2=32 OR P2=88 OR F2=45 THEN CALL SOUNDC-1,779,95:: GOTO 1960 ELSE PE=P2 
:: GALL HEHARC INTEH18 +. 75: INTCY1/B 9+1, 75,32) 

1339 CALL SOUNDE 199, 228,09:: CALL SOLNDE199,339,90%:: CALL SOUNDE 199,440,0) 

[4A8 CALL HÜHARC INTC 178 3+. 75, INTE Y1/8 +. 75.32) 

istd CALL SOUND« 196,448,8>:: CALL SOUND 199,339.99:: CALL SOUND 209, 229,9) 

(429 CALL HCHARC3,32,PE> 

{439 GOTO 1818 

(4 N 

1450 FOR I=1 TO 5 

146m ZU=INTERNDK2I +3 

1478 CALL GCHARC22,ZU,ZZ3:: IF Z22>32 THEN 1468 ELSE CALL HCHARC22,ZU,130) 

(dem NEXT I 

1438 FOR I=1 TO 3 

1508 ZU=INHTCRHNDFZFI }+3 

1518 CALL SCHARSZESZULZZIH: IF 22<>32 THEN 1508 ELSE CALL HCHARC22,ZU,129) 
52a NEXT I 

1539 CALL SOUND -288,336,0,550,0,889,0) 

1544 FÜR I=1 TO 2 

1558 ZU=INTERNDKZI +3 

Ei CALL GCHARC22, ZU, 22): : IF 22<>32 THEN 1558 ELSE CALL HEHARC 22, ZU:.128) 

1588 CALL SOUNDE-209,440,9,660,9,999,0) 

1596 PA=18 :: RETURN 

1608 | 

1619 !LEBEN VERLUST 

1628 CALL SOUND 188,228,85:: CALL SOUND« 198.175.89:: CALL SOUND 289,-3,8) 

16536 Li=121 :: LE=LE-1 :: IF PE<>8 THEN PE=@ :: PASPA-1 :: CALL HEHRRC9,32,48) 

1646 DISPLAY ATC3,28)SIZEL2I:LE 

1658 IF LE=& THEN 1786 ELSE IF PA=@ THEN 880 

Ii6EA GOTO 978 

1678 | 

1688 ENDE 

1598 | 

1708 IF PU>HPLU THEN HPU=PU :: DISPLAY ATCL:2SISIZELSI:CHPU 

1718 DISPLAY ATC19,4):"PLWQ MGWIN <O:N>T " 

1728 DISPLAY ATe 12, 9)BEEP : "GWUME OVER" 


En 


1738 CALL KEYCO,.K,S>:: IF S=9 THEN 1758 ELSE IF K=?4 OR Ks1ds OR K=39 OR kal2i 7 
{74 STOP 

{758 FOR I=1 TO 188 :: NEXT I 

{76a DISPLAY ATC12,9:" 1 

1770 CALL KEYCO.K,S>:: IF S=9 THEN 1798 ELSE IF K=74 OR k=1065 OR Ke89 OR Kel2i T 
1784 STOP 


17984 FOR I=1 TO 198 :: NEXT I : GOTO 1720 

1864 IRUF DEM BOOT 

1818 LUse121 :: ECALL FATTERNG#1,969 

1928 CALL SDUHD« -268, 440,0, 228,85:: Wu=kN-24 :: IF PE=B THEN 1856 

1838 CALL LOCATECHL, WW; MM): CALL SOUND« 106,2339,0,449,8) 

1848 IF FE=122 THEN FÜ=FU+l96#RU ELSE IF FE=129 THEHN FU=PU+SakRu ELSE IF PE=138 
THEH PU=FPU+25X4RU 

19549 CALL SOUNDE188,.392,82:: -CALL SOUND 106,392,8, 330,89:: CALL SOUNDE 199,23932.0, 
"34.89: CALL SOUND FG .,440,.0,392,8) 

1868 CALL SOUNDC200,392,9,330,57 

1870 FE=B ::.FA=FA-1 :: IF Fi=ß THEN CALL DELSPRITECALLY:: PU=PU+ISEHERU :: DISPL 
Ar ATE1,BISIZELSP:PU :: GOTO 558 

1845 DISPLAY ATC1.835I2E5)3:PU :* CALL HCHARC3.32, 40) 

1848 GOTO 16668 

12A8 IMUSIK 

1318 RESTORE 1970 

I320 RERb LA,TON :: IF LA=8 THEN 1356 

1934 CALL SOUND LA, TOH,5, TON+5,. 18) 

1948 GOTO 1926 

1358 RETURN 

1968 !DATA MUSIK 

1974 DATA 266,659, 209,699; 208,659, 608, 523, 208,587, 280,597 , 209, 587; 669, 493 

1980 DATA 286,659, 200,659, 209, 659, 209.659. 208.698, 200,693; 200, 633, 209,653 

1 99 DATA zur, 184 Bu zu, 146 4 20, Ib46, [21515 3538 F 204, BI 208, tat zu ‚ 5.59 

use DATA 266.659. 200.695, 208,698, 200,698, 206, 659, 288,387 ‚288,987 , 280,987 

an al Eu, 0, 131,20, 1315,20, 1174, 6658, 1645,20, 131,2; 131,2, 117g 
-aza DATA 269,1318,200,1318,200.1174,6508, 1046. 6500, 339,599,1318 
24380 DATA 5,8 

2a40 REM GRAS FROGEAMM IST 9468 BYTES LANG 


u 








Fa zn = _ = — a : . ® - u 
[0 
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CAVERNS OF 
DEATH enthält 
mehrere 
Maschinensprache- 
routinen, die einen 
fließenden Bewe- 


war und versuchen mit einem Raumer 
tieren. en 
m Pen. mit raflinierten Abwehrsystemen ... 
re ug # Kollidieren Sie dabei mit feindlichen 
u REM rar - rEeRTH # Objekten, der Höhlenwand oder über- 
PH Rem # JERNS OF re x schreiten das in Bild | gesetzte Limit 
| N REM cc) nv : von 99 Zeiteinheiten. so wird ıhr Rau- 
@ : REM ji RITT ik mer, der je Spiel nur 9mal ersetzt wird, - 
N Be k ugrstian WURZER * zerstört, Am Ende jeder Höhle befindet 
®ı TE CHr4S! IRRE sich ein Durchgang, in dem Sie so weıl 
| ' ; 5 EL ea gan wie möglich nach oben fliegen müssen, 
| a et um das nächste Bild zu erreichen 
/ ® ! 8 N toLode LISTON 7 (manchmal dauert es etwas länger!) ... 
| Ag re Me Ku Bild 2 beinhaltet unter anderem cine 
nn R permanente Sperre, die sich nur öffnet, 
er: FORTER Sa2a6)= EN THENZS wenn Sie ein ziemlich schußfestes Ge- 
ı 16 AUT er era) ö schütz Ihres Gegners vernichten, das ' 
, EER" a 
® | Te IE CF RETUR oh nur mit mehreren Treilern zerstört wer- 
| Le DEN ih KoLL1S! den kann. Sollten Sie alle 3 Höhlen 
® BE lebe res enkeytis 133 erfolereich gemeistert haben, so beginnt 
26 Er FOREN re s7:FÜO r A . 
| 57 PokEN au esagas 1 ‚FOREN? das Spiel mit erhöhtem Schwierigkeits- 
\®: zZ = SE et „4558 grad von neuem ... 
i 1 : je 72: 
1 









Sl ' aa FE 
|  GUOTOSBESD u .yE=97' 
® B sale ars kEw+3L.® | 
4 112 POKEN+ a0. BF, geENDET " 
\@\ iz ren # 451 nENEB= 
en "ee TEpEEKeN#HR? 2 
PR ER eyn.gria)gt1rLENTFEE 
ı @ ee 
| = 
| 
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Caverns of Death 


Commodore 64 (mit Joystick/Port 2 






) 





gungsablauf ermög- 
lichen und besonders 
bei höheren Schwie- 
rigkeitsgraden tem- 
poreiches Spiel garan- 


Der scheinbar unbewohnte und lebens- 
feindliche Planet Tresed am Rande des 
Andromeda-Nebels stellt eine nahezu 
perfekte Tarnung des Kampfsterns Pro- 
mes dar ... 

Als Gefangener der Tresaner nehmen 
Sie die erste Gelegenheit einer Flucht 
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ei’ REM Ki UHR 
265 HE=HE-1: IFHE=-1 THEHNHE=33: GOSUEZS 
2u39- FÜKRE214, 4: PÜKEZ1 1,24: 57398640 
216 FÜKE1283, 1668: FOKE12168, 166: FPRINT"ERA"HE 
220 FÜKE1648, 161 :FÜKE1658, 34: FÜKE1728, 71:POKE1768, 66: BoKESS286, 120: Sr5s32u0 
245 FÜRT=E1T05:FORESSF44. T: FÜKESSF45S. T: FÜOKESEF4S , T: POKESESFAT: T:NERT 
- 258 FOKEIiE48,32: FÜKE 1688: 32: FOREI 28,32: FORE1768, 32: TISe" DB" 


466 REN ##* KOLLISION ? 


465 GOSUBIB:GUTOLER 
603 REN *# BILD 2 


6.56 PÜKEV+21, 8:G0 1032608 

E31 POKREY,S6:FÜKEY+1, 1399: SC=3cHtcHEk lH 100 
E32 FÜKEV+S. 288: POKEV+9, 173: POKE?715, 6 

833 GOSUBFEE:FÜKEV+HZ1 63: L=L+1 :GOSUB25 

Sb REM #4 BILD Z BEENDET 7 


542 IFFEEK(Y+LIC4STHENSBE 


545 REM ## SPERREN 7 

&4e IFWALCTISPTSTHENSSZ 

647 FOKE1546, 32: FOKE13947, 32: FOKE1343, 32: POKE12565 32: FOKE1257 32: FOKE1258; 32 
Eds FORT=SÖTOCIBA+LEATBI NEXT 

543 FOKE1546., 25: POKE1547, 28: FOKE1548, 28: POKE1256, 28: FOKE1257, 28: FOKE1258, 28 
556 TIs='"döobbdR" 

Boz REM Hk KOLLISION 7 


554 GOSUE1B 
bbR REN ## RKAKRETE DES GEGHERS 


GrH IFPEEKCFISICIBTHENGSB 

6703 PFÜKEV+IB,PEERK(VHEB}: POKEV+LISPEEKCV49)-5 
E76 FÜKE?15,255:FOKkErid,6 

Sir FOKESSZO6S., 30: EV55F28 

658 REM ## GEGNER VERNICHTET ? 


FORT=8T02: IFCPEEKCV+SBIANDISI=1STHENGSE 
684 NEXT :GOTDS4B 
BS6 REN ## BEGNER VERNICHTET 


658 SL=aSctiBs6GT=6GTt1:GOSUB726 

683 IFGT=4THENFOKEI138, 32:POKE1137.,32:POKE1138; 32: POKEV+ZL: 15° FOKEV+10, 68 
r83 GOTOsS4E 

eu REM #%* SCORE 


’24 FOKE214, 22: FOÜKE211,18:57555648 PRINT" AR"SC RETURN 
SBE REM #k BILD S 


Sz22 FÜOKEVY+21,8:60T035848 

523 Tl$="B6abdaß" 

524 SC=Sct16: GDSUBr?ZB 

526 FÜKEV+21,15:L=L+1:GOSUB25 
ESG REM 4% SPERREN 7 EHKETEN 7 


IE IFVALCTISI<STHENSEG 

560 FÜKEI1287.32:FÜKE1Z88, 32’POKE1269, 32 

362 FOKE1427,32: FÜKE1428, 32: FOKE1429, 32 

B63 FOKE1642,32:FÜKE1682, 32:POKE1Y22,32 

S64 FOKE1647,32:FOKE1687,32:FOKE1T27,32 

5653 FOKE1851,32:FOKE1831,32:FOKEI731:32 

S’dö FORT=SSTOCHEB+L&7B) NEXT 

573 FÜKEI1267,28:FÜKE1268, 28: FÜKE1269, 28 

Er& FÜKE1427:25:FÜKE1428, 28: PÜKE1429, 25 

E77 FÜKEIE42,25:FÜKEIBSZ, 28: FÜKE1 722: 28 

Er& FÜKElIE47,28:FÜKE1687,23:PÜKEl 77,28 

879 FDKE1651,28:FOKE1691,28:FOKEI731,28 

538 REM RAKETEN 

882 FÜRT=1328T01185385TEF-48 : POKES4ZTEHT ı LPOKET, 37 :51553208:Q0=SIN<T? 
583 FÜKET,32:NEAT 

884 FORT=12651T012445TEF-1 :FOKES4272+T, 1: FOKET. 38:57553260::09=5S1INCT? 
835 FÜKET,32:NEKAT 

3=B TI#="586888" 


’ [3 


ja 
CE 
Li 
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906 REM #k EILD 3 BEENDET ? 


202 IFPEEK(U+LISASTHENISE 
918 REM #%* KOLLISION ? 


12 GüSsUBlE 
>13 GOTOSSE 
Sa REM ## EILD 3 BEENDET 


E85 SceSc+tlöß: FükEV+Z1,8: IFLESPBOTHENLE=SLE-1 

965 PRINT"IMESBINREFEFEET" :FRINT"ET" 

SE? FRINT"E #ER':FRINT'TE DBRL]" 

369 FRINT"EILEFEEEN" 

378 PRINT" EMI. ..ES FOLGT DER NAECHSTE DURCHGANG. ..":FÜORT=6TO3BS: NEXT 
97z FORT=138T01STER-1: FORES3ZB6.T 57553208 :NEAT | 

973 FORT=1T0139:FOKES32B6. T:57553208 NEXT : FORT=8T0388:NEAT 

376 BUTOSE 

1ba& REM #%* EITTE WARTEN 


1818 
1sil PRINT: FÜKES3228,8:FOKES23281.8 
1812 PRINT" vu se zwszrure TUEFW 
18614 PRINT" ygaygamagaga geaegaugegagmigwgEgeEW 
| gie FRINT" ae 3 BIiE ZgeEg ee gg rag Em f 
| 1slr7 PRINT" edge ge reg gu ge DET 
1Bis FRINT" aomrnivwunrrWwr mes" 


isz2 PRINTTABC162"AOF DEATH” 

1824 FRINT"MFEIN ARKCADE-SFIEL FUER DEN COMMODORE 64" 
1625 FRINTTRECSE> "MIT JOYSTICK GPÜRT 23" 

1836 FRINTTABE13I"MRIINEITTE HARTEN" 

1648 FRINTTAB(TI"IDATEN KERDEN EINGELESEN" 


2098 REM #* MASCHINENPROGRAMM 


>43: DATAI2B: 159,192, 141, 21,3,169, 13: 1415 28,3, 83,965 
2595 DATA1T48, 228, 2241217573, 174,195: 2240, 2b 1731er, ll 
2846 DATAIE:288: 173, 16: 288,41, 1, 178, 224: 1, 208: 65, 238, 16: 208; 239.16: 208, 174,0, 205 
>aar DATAII2: 2,288: 174,1, 26885; 142, 3, 208: 16, 1, 142, 135,2: 1852:8, 142,4, 212 

>ag8. DATARIS2. 4: 142,1, 212, 162,18; 142, 5, 212, 162; 15: 142, 24 212, 1862; 129, 142, 5 Z1Z 
-BlE DATAL74, 31,288, 142, 255; 207 | 

2a11 DATAL72: 255, 2087,41,2; 170, 224, 2, 208,8, 162,8, 142.195: 2; 142, 3,268 

zu13 DATALT73: 253: 2087, 41,32, 178. 224, 32, 268,8; 162.8, 142, 283,2, 142: 11: 206 

2815 DATR173: 2355; 287,41: 1, 1768, 224,1, 263, 23, 162,57, 142.8, 208, 1652. 199, 142, 1,283 
zule DATA173. 16,288; 41.254.141, 16,208, 162,1: 142, 254, 207, 169; 8: 141,192, 2, 141,193 
2183 DATR2, 173:8, 226, 41, 233, 141, 253, 207, 174, 2594, 207 , 224, 1,296, 112 

>165 DATA174:253; 207 ‚224, 187: 268,5, 169, 255, 141, 192, 2,1743 253. 207 224: 163 

165 DATA2B8,5; 16839, 1:141: 192, 2 

=187 DATA174; 253; 207 : 224,119, 298,5; 169; 255, 141, 193, 2: 174, 253, 287 ı 224,109, 208,5 
2188 DATA189, 1.141.193, 2, 174,253, 207 , 224, 186, 208,8. 169, 255. 141: 193,2:141, 192,2 
2183 DATAI74, 253, 207, 224, 102, 283, 18, 169, 2355; 141; 193; 2,169; 1: 141, 198, 2 

11a DATAL74 2553, 207,224, 1085: 268, 16, 169; 1,141: 193, 2. 169, 255,141: 192, 2 

#111 DATAL?74. 253: 297, 224, 181: 288,8: 169, 1,141, 193: 2, 141,192, 2 

113 DATAL7FE: 18, 268; 41,1:176, 224, 112408, 12, 174, 8, 208, 224.308, 176; 17,169, 1 

2126 DATAid1,192, 2: 174.0, 209, 224,60, 144,5, 159, 259, 141,192, 2 t 

2156 DATA174. 1,208, 224, 48, 176,5:169, 1.141, 193, 2, 174, 1, 208, 224, 206, 144,5, 169, 255 
2151 DATAild1,198,2 | | | 

2182 DATAIFS, 5: 288, 224, 98, 176,5, 162; 1, 142; 197,2, 174,5: 208, 224,175, 149,5: 1862, 259 
2183 DATA142,197,2 | 

>i&84 DATAL?F4: 7 208; 224, 90; 1765; 162, 1,142, 199, 2, 174,7, 208: 224,175, 144,5, 162,255 
2185 DATAI42, 199; 2 
2193 DATA174,8. 288, 224.108, 176.5,162.1.142:288.2.174. 8, 208, 224, 240, 144,3, 182 
2213 DATR25S. 142, 286; 2: 1862; 15.1693, 128, 141, 81,3, 141 | 

22a DATRBEB 3: 222, 20855 2, 208,94. 159, 176, 2; 157,208, 2,189, 192, 2, 2408, 33,16, 12, 189,08 
2236 DATRZEE, 8, 228, 5, 20, 4; 7,209, 19,254, 0,209, 208,14, 172, 60,3, 208, Sılrs,ı6l 
2246 DATA3, Tr. 16: 288, 141, 16, 208, 173: 68, 3: 208,34 78,.61,3+ 73,128: 141,60, 3, 282,16 
22568 DATAL31: 76:49, 2354, = 1 

said DATAlE2:B, 148, 11,212 

sgza DATRisz, 255. 142,8, 212, 162.18,142,12, 212;162,15, 142.24, 212: 182, 129, 142; 11 
=925: DATRAZ12.,95;, -1 

4dsa DATAI28: 169,49,133, 1,169, 8, 133,98,133; 180, 169, 268; 133,99, 169, 56.133, 101 
das2 DATA1S2; 18:1668,8,; 177, 98; 145, 189, 2808, 208, 249, 230,99, 230, 181, 282, 208; 242 
4985 DATA1lE9,55:133;,1,88,96, 1 

4435. DATA1:1:2: Z7a15,31 4 127 3 295, 299. 255, 255. 255, 259, 259, 2539, 255 

4395 DATAIZE, 128, 192, 224, 240, 248, 254,255, 255, 252,252, 240 , 224,192, 128; 128 

4597 DATAZSS: 83: 634 7,3: 34 1, la ar sus a4 4 Bu BT 35 3, 2 rt rd, 
4098 DATAIB: 16: 165,56; 56,58, 188:68, 124, 108, 238, 198: 214, 84,56, 16 
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£ 1 


mE EN TE EM TEN MEN mE ME MM SEN MEN) "MEN ME: mm MEN) "mE MEN MEN "MEN ME MEN TEEN ME TEMEMı  TEMı ME MEN EEE: MM UM: MEN HE TEE: MEE Hm EEE: TEE TEN EN AH. TEE: ME HE HEN: A EEE MEET SER HE: A A u a EEE: ER a A CE EEE m EEE EEE ee EEE Eee HE ee EEE EEE EEE EEE EEE EEE EEE EEE EEE a > mn Ca mn on mu ml 


4559 


15/515) 
Sal 
said 
eai? 
See 
027 
Sd30 
5u3z 
3033 
See 
Ss 
Sao 
Ede 
EB 
Eee 
sie 
-j5 
15 5 
15 Kor 
6435 
=4slte) 
56045 
Bude 
1a. 
18061 
15618 
15020 
I1s]s es 
15604 


DATAILB, 168, 16.96.56, 124,56; 16, 8:3,15,252, 232, 15,5 -1 


REM ## EINLESEN DER DATEN 


FÜRT=6T01393:READG : IFO=-1 THENSBZE 
PÜKE4F152HT:Q:NERT 
FÜRT=6T0333: READG: IFG=-1 THENSB3O 
FÜKES3SZRG+T DO: NERAT 

FOÜRT=8T0937:RERDG: IFO=-1THENSB3S 
FÜRESSEBB+T . D:NEAT 

Stosscdd: FÜRESSET 2: LFEER SIE FZIANDZ4B )DR14 
FÜRT=-870399: READbG: IFG=-1 THENSOSE 
FÜKE14336+2745+T DB: NEXT 


REM #4 SPRITES 
REM ## EIGENER RAUMER 


IATA,; N Bu Dr Br En Ber Be ‚66; Er 145, ur 195, | 159; lets?) 248, “1, 2, 24, EB, 124 48, AR 12,24 


Er 


DATA, SIEH Br lH Ha Ha na HH 3 
REM ## BOMBE 


UHTAu sans ns I era EIER TEE Br FA IH 


REM %# GESCHUETZ (GEGNER?) 


UATAu sau ss naa na nH RR a R E Ha  r4B45 45, 5 ,4,,512e 
DATAllz: 1er. 299, 240, 63: 255, 2408, 31,235, 224,15, 3: 182, 


REM ## EINLESEN DER SPRITES 


FÜRT=5T083: READE:FOKESSE+HT, U: NEST 
FÜRT=5T053:READE: FOKEBSS+HT , D: NEXT 
FORT=8T063: RERDG:FOKESISOHT , G NEXT 
kEN #&%* LEYEL 


1b : 


15663 
15010 
15028 
156925 
16068 
18918 
16011 
15012 
180123 
20000 
2050 
2082 
20022 
20823 


ebd 


26025 
zu042 
20643 
20044 
29645 
2a 
2u058 
zu142 
z6id3 
25178 
zu172 
25173 
eeelele) 


FÜRT=BT0168 : FÜRESS3E2B8, T:57553208 :NHEAT 
FRINT"TITEIND SIE 1 = AHFRENGER; I 
FRINTTABIF}'"E 2 = 
FRINTTAREC?/}"M 3 = EXPERTE" 
GETHAS 
IFAs="1"THENLE=4:GOT026888 
IFH$=" 2" THENLE=2:GOTO2B888 
IFAs="3"THENLE=8:G0T02088868 
GOTO1E068 

REN #% VARIABLEN, DATEN 


v=53248:L=9:36=0:POKES3247 ‚8: POKES3246.0:POKES6323,20 


FÜKEV+27 ,44 :FOKE?BS ,dFOKE?OT. 8 
FOKEr’B8,8:POkKErB9, 1 
FOKE’/18,8:FÜKE?’L1,255 
PORE?/l2.1:POKE?’IS3.B 
FÜKEB33.3:FÜKE539; 3 

FÜKES30,.3: FÜKEBES1,2 
FOKEESIZ: 3+LE FÜKEES3: 3+LE 
FÜKESF4,3tLE:FÜKEE3S5, S+LE 
FÜKESSE , Z+LE :FÜKE899, Z+LE 


FOKEZB46. 13: FÜKEZ641 . 14 FPOKE2842. 14° POKE2843, 14 POKE2944, 15: POKE2945, 14 


FÜKEVW+32,1:FOKEV+48. 1: POKEV+41 , 1 
FÜKEY+42,1:FÜKEV+43, 1: FÜKEW+44 , 1 
FÜKEY+15,8:FÜKEV,. 56: POKEY+1, 2668 
FOKEY+3: 8: FÜKEW +4,95: FÜKEV+5: 1108 
FÜKEY+5., 235: POREY+?,118:G0T059 
REM ## BILD 1 


FÜRTGESCHRITTENER ODER" 


EFFEFLEFFLEEFEFEEFE" 
EEHTIMNEBERERELFEEEFE" 


38010 : 
30090 PRINT"ITWELELEELELERFEREFERE 
seldd FRINT"TEELLLELLELFEFELEREE EELFELELLLEFEF FREE" 
| 38185 PRINT"TE£EEET 444 
| 38118 PRINT"EELET EEE  EELERELLEERt 
Ä 38115 FRINT'TEEET ET FELEFEFLET 
| saigd PRINT"TEET [L££] #] ELFELLET 
/ 38125 PRINT'ET L££t + #]  +EEEEET 
/ 36136 PRINTTE L£££ £&] EU See 
| 39135 PRINE te E 0 E #t £r 
| 38146 PRINT"TE £ LEE LE 
| 38156 PRINT"TE £ rt L£Et 
/ 26155 PRINT"EI £ +] L£Et 
| SBlEB PRINT"TEEELEI L  E£) #) LEREEEN 
| Sa165 PRINT" EET HE £E£] HEEELEN 
38176 PRINT'ET *te] rer et 
38175 PRINT"E] 2 L£ 
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b) 
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L 
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1 
i 
1 
' 
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FRINT"TEE] 
FPEINT"/EEE] 


» PREINT"TEEEE 


£] 


[£] LEE] 
FEFEFFERFEE) 


LE£] 


ge" 
LeeEgE] LE" 
LEREELLEREREE" 


=B187 FRINT"TEEEE ERFELERLELE REEL FE ELLE ER ELEEEEEE" 
39133 PRINTTTEEEE u EEE FEFFELFEEERFELEEEFFEFE LER EEEE" 
358159 FRINT"! Den een oma ey es 
39158 FRINT"TIA SCORE AUMER 

=a1=1 DER EEPEEREREREPLERLREPFERRERERFEREN: 
>18 'GOTOSE I. 

=zuaa REM ## EILD 2 

32061 : 

32917 PREINTYIICHELEELFEE LEE LEERE LE LEE ELEE LE LEE FE EEEEET 
32018 PRINTTREEFLELFLLLLFL LER EL FELL FELL EEE EEE EFEEE" 
=2B20 PEINT"IT #tr 0 +EEETFTeTTI NEE HELLE NT EEEEEE" 
=2025 FRINT"T EEE ££ re TLEEE" 
=32836 PRINT"TI EEE tr -£ LEFEE" 
32832 FRINT"NT EEE] EI £EERE) 
=2833  PEINT"7 El] Eee 
32635 PRINT" £t £££" 
328365. PRINT") £] LE£E 
=s2037 PEINT"7 E +EeE 
=2835 FRINT"T £t EfE" 
32833 FRINT"N £] L££E" 
s2648 PRINT"TE] +t +£££" 
32042 PRINT'TEE ££] E££" 
=P043 FRINT"IIT =] [EEE 
=26044 FEINT"'7] [££ EFE£E" 
2045 FRINT"TEE]I £££E J LELER" 
Sseads FPRINT"'TEER f£f£]l [£1 [] BSHESELELE 
sed? PRIHT"TEET SHELELEELEELLLLE ELLE LEERE EEE EEE" 
=s2u48 FRINT"TEE] EFFLELELELEEEFLEELEEFEEEE LEE EELEEE 
22449 FRINT EEE EEE FELL EELFEELEFEELEFEE LEE" 


33819 
33626 
33022 
33023 
=3024 
33926 
33827 
33628 
233838 
33032 
33034 
33835 
33036 
33637 
33038 
33039 
33648 
33180 
33161 


33182 


Impressum 


Homscompute: 
erscheint moaallich im 
Ingmne- Werläg, He Bee ) 


Aedaklien: 
Aarl Grece (rerantwortich), 
Aainer Back, Frans Biel 


Freie Mita 


FRINT"74 SCORE 


PRINT"TEEET 
FREINT"TEEt 
FRINT"TEE 
FEINT"TEE] 
PEINT"TEEE 
PRINHT'"TEEE 
PREINT'TEET 
FRIHT"TEE] 
FEIHT"TEEE 
PRINT'TEET 
FRIHNT'TEE 
FRIHT"TEE] 
FEINT"TEEE] 
PRINT"TEEEE 
FEINT'TEET 
FRINT"EEI 
FRINT"TEEE 
FREINT"TE£LE 


A PRINTTTEERFELELLLEELEFLLETFFEEFFEFFEFERRFEEFEREEE" 


ERFEFELFFEFLFEFEFLFEEEFEE 
EFLEEFEEFEEFFRELELFERFEE" 


+£E£ KERET #EET E" 
+E Er £ 

[1] £ £ mE" 
££ [£ LT En 
£T £T En 

alle: HR ce" 

ft #1 0 HR L[ ] L£££" 
EI  +EBEELE]I [EEE £  +EEE" 
££ +EEFFEEILELEEET €] EE" 
+£] +EEEFLEERELEE] #T =E- 
£E£] ELFELLLEELEE [] £" 
££ sFEELFLELLLET #E) En 
££ = Ei" 
££] FEN 
[EEE] «£" 
EF£EE LEEFELFLELERE] Ex 
EFLEEI [LEEEFELELELEERE] LE" 


PRINT" TEE EEE LER FEFEEEFLELEELREEELELFEFEFELEE" 
FRINT"TELERELLEEFEEREEELFEELLELEERLELLELELFERELEEE" 
PRINT'TI4 SCORE 


FORESB23S.3:6GOT0823 


rbeiber: 
Yollsı Becker, Holger Grecet 


Geramtherstellung: 
D+V Onelkiaius Dierichs Kassel 
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Eischeinungswekte: 


Verirkeh: 
Int Ina Groß, Einzel- und Bihninhbichhundel 


Brian und Schwer 
Yerkeain 
Frndnch: Borur: "Straße Fl] 
en 


Talekın 0161 24 1.2660 


Antragen nicht an Veriieh oder Drgcherei, 
sondem wer an den Verlag! 











Arekn Kratnaeg 


a yon 
HOMECOMPUTER I Anlarıy des Minata: 


RAUMER " | 
PRINT" TEELELLELFERELLEELELEEEELEEFEEFEERLEREELE" :POKEL383, 28 


Anzeigeapreise: 
Alte Altsaumaiigen anlördem. 


Anzeigeaansahmsschhul: 


beweis 3 Wochen vor Erschenungsamn 


Urhoberracht: 
Alain KÖMELOMPUTER weröllentichlen Be | 
poerterhiich getelaitst Ale Rechie, 


ka end 

we Üneiselfunujeri, verberuiter: Aularea, Mamurkıkole: 

Reprichakticnsen! jeder Art { Fulokopien hlicrehlm, Car Verlag nimmt een und Software zur 
Erlassung in Dalnerirbeilungsanlagen use.) Yerstentlcher erigegeri 

bedürfen der schriätkchen G 7 ons Ver- Same keine andere Yereinberung ie 

bag 


2 Abs veröttentichie & offwrgre arurde von He- 5 een 


arteHlgen ans Werkipes ‚oder won Ineken Milarbei- Hongtar von 130, DM pic abgosruchle Sale 


ke erstellt. 





"POKE 1383, 169: FOKRESS255, 3 


RAUMER 
52 PRINT" TEELEELFEELLELERELLLLLEELERLLLLELELLELELL" :POKEL9S3, 169 
; PÜKESE2SS, 9:G0T06831 
REM #% BILD 3 


PRINTTTWCHLERERELLELEEE 
FRINT"TERFLLELELLEEE 


En dung yon Martanpten und Sedlaan 
ertet der Autor dem Werläg die EN 
dem Abdiuck. und Wersand der verillentlerten 
Pıogzrere auf Dateniräge 
Rodkserdang erfolgt nun gegen‘ Eitkalaung de 
Leikgaten, Zunerdangen von lan ner Wierdl- 
kensschung soäten Ilgendes erlhällen 
Kopiestähize Kassette oder Diskette. mil dem 
Progtarım (Corguier-Banschnungi, von Druk- 
kei esleites Lisling oder Gere von Hilgerkum- 
kolerk (keine gitarre ini Bin 
sch Proßeläe und all 


bche ee ee (Erkärng [en Ya 


nabkräsie, Beschmibung des. Bedscheimgg: 


bass, Faite, Gill usw), Für eingesaräte Pra- 


grammurderiagen kann kenerlei HaBung über- 
’ De ge, 


nr wire 
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Lee nn nterasrrtstensennntennennnnbanbna tina etrn sank etnn sans en sense 


Ausdrer Yeriierichung Kan nie onschönssen 
ie beschnebenen: Lösu 


WEICHE, 


ayan och 


Bereichnungen Ye ven Seinutzrachäir 3 sind 


Berugspreite: 
Einsihell 550 DM 
(12 Ausgaben) 
Auztanıd‘ 


wir daran Bus, da 
im Heil amerstardden sind 
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Abonnement; Inland 55,= DM Im Jade 


- Europa 39- DM.USA 110- DM 


ellen sen, 
= mi einen 











Das Spiel ‚War Lords‘ 


War Lords 


Commodore 64 


stellt den Kampf 
zweier verfeindeter 


Burgherren dar, 


die sich gegenseitig mittels zweier Kata- 
pulte einen erbitterten Kampf liefern, 
denn cs gewinnt nur der, der zuerst die 
Burg des anderen vollständig zerstört 
hat. Um bis zur Burg des Gegners vor- 
zudringen ist es erst einmal notwendig, 
sıch durch den Wald des Gegners zu 
kämpfen, in dem seine Burg steht. 
Damit man dem Gegner nicht hilflos 
ausgeliefert ist, kann man ein Schutz- 
schild vor dem eigenen Territorium 50 
bewegen, daß die Geschosse des Geg- 
ners daran abprallen, und ıhn nun 
selbst bedrohen. 


Punkte gibt es natürlich auch, und zwar 
für die Bäume, die man dem Gegner 


abholzt. (Keine Sorge, denn die sınd ' 


schon so vom sauren Regen geschädigt, 
daß man sie sowieso bald Allen müßte,) 
Satürlıch werden die Schutzschilde 


mittels Joystick (1+2) bewegt, da man ee 


- davon Ausgehen kann, daß 
wohl jeder zwei Joysticks be- 
sitzt. Spieler I muß dabei den Joystick 
an Port | benutzen, und hat seine Burg 
aufder linken Seite zu beschützen, für 
Spieler 2 gilt es natürlich genau anders 
herum. 


Da es mitunter sehr lange dauern kann, 
bis:man die Burg des Gegners Zerstört 
hat (besonders, wenn der Gegner schon 
eiwas Übung hat), kann man auch die 
Möglichkeit wählen, eine bestimmte 
Zeit lang zu spielen, gewonnen hat 
dann, wer dem anderen dıe meisten 
Bäume entwurzelt hat. 


Natürlich werden die Punkte der bei- 
den Spieler fortlaufend addiert. so daß 
man 7. B. nach einem Turnier von fünf 
Spielen den besten Bureherrn aller Zei- 
ten bestimmen kann. 


Startet man das Programm, so wird 
zuerst anhand des Inhalts der Speicher- 
stelle 32768 festgestellt. ob die Datas 
schon an ihren Platz gepoket worden 
sind. Ist das der Fall, so springt das 
Programm in Zeile 1370 gleich weiter 
zum Titelbild. Ansonsten werden die 
Datas erst einmal in -den Zeilen 
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2540-2300 an ihren Platz gepoket. Vor- 
her wird jedoch ın Zeile 1310 der Bild- 
schirm ausgeschaltet, was während des 
Einlesens der Datas eine Zeitersparnis 
von ca. 6 % bringt. Anschließend wird 
der Bildschirm in Zeile 2890 wieder 
aktiviert und. das Titelbild wird ange- 


zeigt. Durch drücken einer Taste (oder 


Feuerknopf Port 1) geht es dann mit 
dem Spiel los. Die Ablrage dazu finde: 
in Zeile 2970 statt. 

Als nächstes werden die beiden: Spieler 
eolragt. ob sie nach Zeit spielen wollen, 
d. h., daß nach einer bestimmten Zeit 
das Spiel automatisch aufhört, oder ob 
sie bis zum (bitteren Ende) durchhalten 
wollen. Ist ersteres gewählt, so werden 
die beiden Spieler außerdem noch ge- 
fragt, wie lange sie spielen wollen. Die 
Abfrage dazu erfolgt ın den Zeilen 
1410-1450. 

Nun geht's aber los mit dem Spiel: 
Nachdem ın Zeile 1480.der Bildschirm 
auf den Sonderzeichenmodus ab Spei- 
cherzelle 12288 umgeschaltet wird, 
wird ın den Zeilen 1510-1340 die Lm- 
randung hingepokei. Es folgt in den 
Zeilen 1580-1600 das ‚Pllanzen’ des 
Waldes. In den Zeilen 1640-1670 wer- 
den die Burgen ‚erbaut‘, und in Zeile 































1680 
werden die 
Schutzschilde 
gesetzt, Nun wird 
In den Zeilen 
1730-1750 der Ball ins 
Ziel gebracht, wobei die 
Richtung, in die der Ball los- 
fliegt, zufällig bestimmt wird. 

Es lolet jetzt der Programmieil, der 
die Häauptarbeit leistet, d. h., ın den 
Zeilen 1790-1530 werden durch ceın 
Maschinenprogramm die Schutzschil- 
de der beiden Spieler bewegt, die Ku- 
gelposition neu berechnet, abgefragt, ob 
ein Baum oder der Rand getroffen wur- 
de, und eventuell darauf reagiert. Die 
Abirage. was genau getroffen wurde, 
erfolgt in den Zeilen 1870-1960. Je Arı 


- des Hındernisses wird dann eine der 


vier Sound-Routinen in den 

Zeilen 2230-2300 aufgerufen. 
Wird eine der Burgen getroffen, die Ab- 
frage hierzu findet in den Zeilen 
1930-1990 statt, so wird danach in Zeı- 
Ic 1980 abeefragı, ob die geirollene 
Bure vollständig zerstört wurde und das 
Spiel damit beendet ist, oder ob einfach 
nur der Ball neu ıns Spiel gebracht wer- 
den muß. Zeile 1990. 


Isı das Spiel schließlich beendet, entwe- 
der, weil dıe festgelegte Zeit überschrit- 
ten oder weıl eine der Burgen zerstört 
wurde, so springt das Programm in die 
Zeilen 2030-2210, wo natürlich zuersi 
einmal angezeigt wird, daB das Spiel 
beendet ist. Anschließend wird ange- 
zeigt, wer diese Runde gewonnen hat, 
Zeile 2090-2150. In den Zeilen 
2160-2150 wird der Gesamipunkte- 
stand ermittelt und angezeigt. Für ein 
neues Spiel wırd in Zeile 2200 abzewär- 
ter, daß eine Taste bzw, der Feuerknopf 
an Port I gedrückt wird, um ein neues 
Spiel zu starten, 
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i8i8 
1838 
1646 
1656 
1868 
1878 
1880 
1690 
1188 
{118 
{126 
1136 
1148 


11668 


1156 
1198 


1238 
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. 1266 
ı 1274 
ı 1260 
1 1300 
ı 1318 
ı 1320 
ı 1358 
f 1348 
158 
N 1366 
1378 
1338 
ı 1396 
ı 1448 
' 1418 
ı 1428 
ı 1436 
1448 
' 1458 
r 1460 
ı 1d7Bd 
1488 
N 1420 
1558 
ı 1518 
 1= ri 
ı 1530 
ı 1548 
N 1558 
ı Seh 
ı 1570 
ı 1580 
ı 1598 
ı 1688 
ı 1618 
ı 1620 
' 1638 
ı "16408 
i 1650 
ı 1660 
1&?B8 
ı 18660 
ı 1698 
' 1/7068 
ı 1718 
1... 17208 
ı 1738 
ı 1748 
LSB 
1 

1 

1 


1770 
ıi7’e0 


26 NOMECOMPUTER 


1158 r 
ıi178 


1206 r 
1220 ı 


1250 r 


1768 rem 


rem" I Steuerzeichen 


rem" 
rem!" 11) 
rem" il 
rei" H 
rem! el 
rem! .% 
rem" dl 
Br 
+ 
1 


Erst rechts 
Crsr links 
Ersr hoch 
CErsr runter 
Gelb 
Dunkelsgrau 
Nittelörau 
Hellarau 
Eraun 
Heiss 
Hellblau 
Gruen 

home 

elr home 
vs on 

PYs off 


nn 


rem" 
rem 
rem" 


nam 


u. 

= 
a 
num 


Jkarliords How.’Dez. 1934 
cc) and Idea: F.Faulsen 


written by: E.Schiftler 


Un RRRBER | 
print"seretten sie ihren koeni®! der thron ist Hin sefahr." | 
Print"ikin verfeindeter bursherr blaest zum tanariff auf das schloss. 
Print"äehren sie die schnellen felsbrocken" | 
Frint"ißb, versuchen sie, die feindliche burs Akku zerstoeren.E' 
itpseki 32758 lE9thendosub2ä4d 

Sosubzaid 

Print’BErlayver 1 = Port 1 

Print"iflayer 2 = Port 2 

Print"iERlhach zeit Grin)?" Pokeld4.B 
setat:ifase"n"therfoke2dd, 1:30t0147B 

ifa$< >" J"thenla2d 

poke2b4.1:Prınta# 

inrut"Smach wievielen Zekunden")se’sessek6ß 

Sosubi14ßh 

3e=93399399 

Poke53272,28 

Foke5328l,6 

Print! mei" | 
fori=&t033:Pokeld2d+i.6:Pokel984ti,6: next 
fori=1it0o23:Pokeld2d+ikdd, 7: Pokeldäd4+39ri4ß, ’next 
Pokelld24,5:Pokeldzd4r39,8 

FPoke13#4.,8:Pokel3B4+33:8 

tt ——— 

rem"| Hald Pflanzen | 

rem" nn SE m nn a ar ar Er er | 

fori=1t0o23 | 

Frint ieedddddddaa" sr cczb)" ddaddaaaddd" 

next 

tn — 

rem"| Burgen bauen | 
ed 

Print "BEREEGEEBEiG "ar ci34) ee" 

Print"kac"speis4)tac" 

Print "EBEEELEBEb "sp cc34) en" 

FPrint"IBc"spci34;)"ac" 

sys3drbß 

tis=-"Bobbee" siert — 

ne! me sSsSsSsskzm—— 

rem" | Ball ins Sfiel i 

rem! TE a a mn ee en nn 

be=1824+60  Pokebr.9 

Px=-]: ifrndelac. sthenrx=l 

run 

! m m 

rem"|I Ball beuesen | 

Pen! | a Ta — 
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sy4aszE3d:PFokebf 32: brsbep+trtr ad FPepeekchbp) 


1796 

i8605 9=bF-1024:s=eabs (I- int (IA 2 ilP<9theniE87d 
Isle irftirsethenzbiH 

is2B Perfeekichbr IH :ifPX4theni 32H 


1836 
1248 
1556 
1868 
1878 
1888 


PokebP+Ss272,1: Pokebr 3: 90t01790 

Da HT 

rem" | Hindernisse | 
u  —— 
ifP=4thendosubz2äd:Pokebr ; 32: rx=-r%: 9001828 
itstlbandendc 3X. IthenbPesbP-rx 2 


ifP=e7thensosub235ß:bPp=bf-Zirx'rx=-rx:90t01828 
ifp=6thengosub2428 : bPp=br -Bihry 'rya-ry !90t01328 
ifrsöthenbPabp -SbFry-ZhrgrgerK:rye-ry :90t01828 
PokzbP.+32 

ifr=dtheni198ß 

itF=ithenbP=ebr-40: S0tol96B 


| ifFeäthenbrebp-1:90t01988 


ifFf=3thenbfr=bp-4l:Sotol3s8ß 
stof 


F=Feektchr )#+Peek (bF+l1)+Peektbpr+44B) + eek hp +4 1 I I Fed then? 3 


sasub24B2 :3oto1 73h 


rem" 


rem" | SPiel zu ne 
rem N a en nn 
Pokes3zrz,2B:Print"At; 


Printtabi 1 1) Den |" 
ı Printtabi 1 I U ————— 1" 


FPrinttsbtl ID U RR I BBame over il N 
Printtabt 1 1 Wi —— — ll 
Frinktahbl 11)" nn IT" "' 


a Print Aseuonnen hat !zel" 
2 fort=elItosdd: next 


if41=92chenfrint  Iunentschieden!":90oto2169 


ag="lbbkPieler 1":ı1f92>91lthenase’'iiberieler 2" 
1 fori=elto2dd: Print U a Print at ext 


Print" IgEkEPieler 1:";9i 


iı Print"Zerieler 2:",92 


„leul+al:uäeu2+g2:gi=d:2ed 
Print"sgEPurktestand: spieler 1 hat"sl"Punkte" 
Print" spieler 2 hat"s2"Punkte" 


| Print'säkrace fuer neies spiell" 
getas:ifasch" "then22dd 


Print’ :Sotoldild 


Tr ee 
rem" | Sound 1 i 


N ———— 
Pokesi+24,15:Poakesıt+4, 0: Pokesi#+5, 15: Pokesi+6, 255:pokesi+r4,33 


fori=ssdtol2dster 16: Pokesi+til , 235-i next 
forissdtol2dster 16: Pokesi+tl,i:next 


| Fokesit4.0 | 
sp=bPr-1B24-inti ihr - 124) ae itap>Zuthengl=91+1:90t02318 


gz=42H1 
return 


u — 


rem" | Sound 2 | 
Prem" a a re u ee a ne 


I pokesitd.8:Fokesi#+5:15'!Pokesitß; 255:Pokesi+td, 17 
fori=eito3ßstep?:'Pokessi+ti, 38-1 next 


forielto3ßstep2:Fokesitl,i: next 

Pokesi+4,8: return 

ven! nm m m 

rem’ | Sound 3 | 
TH  — — — — — — — — — 
Pokesit4.8:Pokesirs, 15:Pokesits, 235:F0okesi+4,33 


 forielitodöstepr2:Pakesitl.,868-i: next 


Pokesit4,B; return 
EM Sound # | 


7 ren 1 | 
| Pokesi+4. B:Pokesi+ts, 40: Pokesits, 168: Pokesasi+4, 129 


forieltolöster.1:Pokesiri1,id-i next 
Fokesitd:B:return 
ae Kl ae Te ne 


| rem" | NE-Code einlesen | 
ed ol oo oo 


nem 
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, ! R Po n a oe CE GE a “ on oo om m m: m m He Sm rim min: HE: He oe se a Me HE: EEE EEE TEEN TE TEN: CE HAB TAB TE: Mi rim) sp me sen: sim im hm oo m 
- = u 2 1 F P me m: ce HE: mn AS MH CE MEN" STE. MEN Sm" Sf sm: <ÄmHR pin <mmn Smmı a ME. EEE DEE HMM mEmEEN „ HIMEME Timm EN“ SEMEe SEEN MEER SEmmRe- (mem =min # 


data 
data 
data 


| datı 


Jdata 


| data 


Jata 
Jata 


| data 


data 
data 
data 
rem" 


rem" 


rem" | Sonderzeichen einlesen j 
I a 1 ra mei | 


| foriei?äddtai+7:Pokei @'inext 


fori=s12288t80123657 read): Pokei, J’next 


data 
Jata 
Jata 
Jata 
Jata 


ii 


130,252, 252.184, 120, 128: 88. 128, 127,111,127, 126,92, 124,124,124,45,63 
53.26, 38,38, 22,36, 254, 250, 254, 126,54, 62.62,62,9,24,24,69,68, 1265, 125 
24,255 , 255,255, 255, 239, 199, 131.1, 255,255, 178, 85, 178, 89, 255: 259, 235 
215,235, 213, 235, 215, 235, 215, 235,215, 178, 85, 170,85. 239,215. 50.182, 223 
191,191,255, 126,60 


m Tr en oe ee EEE en BESTE TE EEE EEE EEE ee | 


rem" | Sprite-Datas | 
rn Te en rn a en ba 


rem" 


forisdtoitrk64-l:readi Pokezddksd+i, I next:return | 
P0ke53269, 255: Poke54276 ,255:Poke53286, 1:Poke53286,0:P0ke53281,8 
Poke53248+23, 255 


fori= 


Atar 


PokeS32ds+i #2. 4o+iM223 
Poke53243+1i#2,538 
Pokezädd+i,ZBd+rı+7i>5) 
Foke5ss3zsrti.14 


Text 


fori=dto? 
pP=5328rri 
Poker; 1 
fort=itold:next 
Fokep, 14 
tort=1told'next 


I next 


getaf:zez+l:ifzcöhandafe""then298d 
P5ke5326893,8 


data 


1 data 


data 
Jdata 


i datı 


data 
data 
data 
data 
data 


1 data 


data 


ı data 
data 


data 
data 
data 
Jata 
Jata 
data 
data 
Jatıa 
data 
data 
data 
Jata 
Jata 
Sata 


| return 


255,15, 240,235, 141176, 235, 14: 176: 235; 14: 176,239, 14.176,235 
14, 176.235: 14. 176 , 235, 254, 176. 233: 174, 176, 235; 174,176, 239: 174 
176. 235:174,176,235, 174, 176,235, 174. 176, 235,174, 176, 235,174, 176 
235.174. 176.234. 178. 176. 234; 178, 176, 234, 176, 176, 255.255, 249,0 
15,255.8,593, 178: 132. 234.178, 176: 234 170, 176,233, 254, 176,235 
14,176; 235, 14, 176,235. 14.1765, 239, 254, 176, 234,176, 176,234, 178 
176,234, 178, 176.235, 254. 176.235, 14, 176,235, 14, 176,239, 14,176 
235,14, 176,235, 14, 176,235, 14, 176,235, 14,176,255,19,2408,0 _ 
255 ,255,0,234, 178,192, 234, 178, 176, 234; 170, 176, 235: 259, 176,235 
{4 176: 235, 14. 176. 235. 14. 176,233, 250. 176, 234,178, 176.234: 178 
176,234,178, 192.235, 175.08, 235: 172,8, 235; 235,8, 235, 235; 08 
235,59,192,235,39: 192,233. 14,176, 235; 14, 176, 255, 15, 248,0 

255g, G,8.,235:8,B,235; 9,8: 235:8:8, 2358, 8, 235 
4:0:235:8:8,235:8; 68, 235.B, 68, 235:8,8: 235,0 

A .,2235.8:8,; 235.8: 0: 235,0, B8,235,8.,8,235.0,0 | 
235 ,255,248,234,178,176. 234.170. 176. 234.178, 176, 259; 239, 290,8 
15,255:9,58: 178, 192. 234, 178,176: 234.178; 176; 234, 259, 176; 239 
14, 176,235, 14, 176, 235, 14,176, 235, 14, 176,233, 14,176, 295,14 
176,235. 14,176, 235, 14,176, 233, 14: 176,235, 14, 176,235, 14: 176 
234,258, 176. 234 170,176. 234, 178.176, 598,178, 192,15,255.0,8 
355,255, 0,244, 170, 192, 234, 178, 176.234, 178, 176, 235, 259, 176,235 
14,176.235,; 14, 176: 235. 14.176.235; 14, 176, 2353, 14,176:235, 14 
176.235, 14.176.235, 14, 176,235, 14,176, 235, 14,176,235,14,176 
235,250, 176,234: 170,176: 224:170, 176,234: 178,192, 259, 259; 9,8 
15, 255:6,58.178.192, 234, 178,176, 234. 176, 176. 234, 258, 176: 235 
14,176, 233; 15. 240,235: 8: 0: 234, 253.0. 234. 1708, 192: 234, 178 
175.58:178, 176, 15.250, 176.8, 14.176, 235, 14, 176,235, 14, 176 
534,258, 176, 234, 170, 176 234, 178, 176,59, 178, 192, 15,235,0, 8 
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Oily Jake ist ein fleißiger Arbeiter in 
einer Ölraffinerie, Seine Aufgabe ist Öl- 
leitungen zu überwachen, auftretende 


Schäden zu reparieren und darauf zu 


achten, daß. die Ölfässer nıcht überfüllt 
werden. Die Arbeit in der Ölraffinerie 
könnte richtig Spaß machen, wenn sich 
nicht ein gifterliner Skorpion in die 
Raffinerie eingeschlichen hätte, der am 
laufenden Band versucht, Oily Jake's 
Arbeit zu sabotieren. Ferner muß Oily 
Jake, um seine Arbeit verrichten zu 
können, in schwindelerregender Höhe 
seinen Kontrollgang über die Pipelines 
durchführen. Dabei muß er aufpassen, 
daß er nıcht abstürzt, und somil eines 
seiner 3 Leben verliert. 


PIPELINE ist auf 
dem LASER 2001 
geschrieben und wird 
mittels des linken 
Joysticks gesteuert. 


Das Programm ist in 2 Teile gegliedert. 
Teil 1. ist mit „PIPELINE-VORPRO- 
GRAMM“ gekennzeichnet, und belegt 
dıe kompietie Grafik, sowie die 4 ver- 
schiedenen Grafikfenster im Video- 
"RAM. Das Programm läuft ca. 3 Minu- 
ten. Die belegte Grafik bleibt so lange 
im VideoRAM, bis der Rechner ausge- 
schaltet wird, oder der „GR”-Befehl ge- 
geben wird. Das Vorprogramm muB 
deshalb nur einmal vor dem ersten 
Spielbeginn laufen. Danach wird dieses 
Programm durch den 2. Teil „PIPELI- 
NE-HAUPTPROGRAMM"“ über- 
schrieben. Dieser 2, Teil beinhaltet die 
komplette Spielhandlung sowie die 
Steuerung der 4 Grafikfenster und die 
Maschinenroutine zur Videoprozessor- 
steuerung. 


Es ist wichtig, beide Programmteile vor 
dem ersten Start auf’ Kassette oder Dis- 
kette wegzuschreiben, da Teil | sofort 
nach dem Programmlauf Teil 2 einliest 
und startet und Teil 2 nach dem ersten 
start nicht mehr editiert werden kann, 
ohne daß Programmteile zerstört wer- 
den. 

Teil 2 darf nach einem Abbruch mit 
Break (CTRL C} nicht mehr mit RUN 
gestartet werden, sondern muß mit der 
Befehlsfolee CLEAR (Returm) GOTO 
12 (Return) neu gestartet werden. 
Diskettenbenutzer sollten im ersten 
Frogrammieil die Zeile 100 umändern 
in: 100 DISK „RUN PIPELINE-HF* 
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und den ersten Teil unter dem Namen 
PIPELINE sıchern. Danach wird der 2, 
Teil unter dem Namen PIPELINE-HP 
auf die gleiche Diskette weggeschrie- 
ben. Das Programm wird: nun mit 
RUN PIPELINE gestartet, und lädt 
dann automatisch den 2. Teıl nach dem 
Programmende ein, 

PIPELINE bringt einige Besonderhei- 
ten des LASER 23001 zutage, welche den 
meisten Besitzern unbekannt sein dürf- 
ten: 

Das Programm benutzt den Grafikmo- 
dus IL, der vom BASIC nicht: erreicht 
werden kann, jedoch eine schnelle 
Farberafik, sowie die Mischung von 
Grafik und Text erlaubt. 

Es werden 4 Grafikienster benutzt, wel- 
che außerhalb des TEXT-Bereichs lie- 
gen. Somit wird der blitzschnelle Wech- 
se| der einzelnen Bilder erreicht. Das 
Programm benutzt SPRITES. wozu der 
LASER 2001 normalerweise keinen 
BASIC-Befehl kennt. Damit wird die 
umfangreiche Bewegung, die Ge- 
schwindigkeit der bewegten Übjekte, 
sowie. die Graliküberlagerung erreicht. 


Doch nun genug der Voorbetrachtungen. 
Kommen wir zum eigentlichen Spiel: 
Sobald das Titelbild auf dem Bild- 
schirm erschienen ist und die Titelme- 
lodie verklungen:ist, kann durch Druck 
auf den linken Aktionsknopf'.des linken 
Joysticks das Spiel begonnen werden. 
Jetzt erscheint dıe erste Pipeline auf 
dem Bildschirm. 

Oılly Jake steht auf dem linken oberen 
Ende der Pipeline. Rechts neben der 
Leiter wird ein Zeitband angezeigt, wel- 
ches im Verlaufdes Spieles immer kür- 
zer wird. Sobald das Zeitband nur noch 
32 Zeiteinheiten beinhaltet, ertönt ein 
Warnsignal, und das Band verlärbt sich 
roi, 

Auf den unteren Sprossen der Leiter 
erscheint der gifterüne Skorpion, wel- 
cher Oily Jake das Leben schwer macht. 
Der Level beginnt, sobald dıe PIPE- 
LINE-Fanfare verklungen ist, 


Steuern Sie mit dem Joystick Oily Jake 
vertikal, horizontal oder diagonal. Ach- 
ten Sie jedoch darauf, daß Oily Jake 
nicht von der Pipeline abkommit, da er 
sonst abstürzt und eines seiner 3 Leben 
verliert. 

Das Ziel ist es, zum Olaß zu kommen, 
bevor das Zeitband abgelaufen ist, Fer- 
ner darf der Ölfluß nicht durch die Sa- 
botage des Skorpions unterbrochen 
sein, wenn Oily Jake das Ölfaß erreicht. 
Sollten Sie das schaffen, so geht das 


PIPELINE 
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Spiel mit einer anderen Pipeline und 
dem nächsthöheren Level weiter, 
Insgesamt gibt es 3 verschiedene Pipeli- 
nes und 5 Levels. 

Der Skorpion klettert immer die Leiter 

hinauf, das Gerüst entlang und dann 

irgendwo über dıe Pipeline geradlinig 
zum unteren Bildschirmrand. Wenn 

Oily Jake vom Skorpion berührt wird, 

so stürzt er ab und stirbt eines seiner 3 

Leben. Berührt der Skorpion eine 

Flansch der Pipeline, so geht die Pipeli- 

ne an dieser Stelle kaputt, und der Öl- 

Nuß wird unterbrochen. Dann muß 

Oily Jake an die defekte Stelle geführt 

werden, um die Pipeline zu reparieren, 

Oily Jake hat jedoch gegen den Skor- 

pion eine Waffe: Er kann den Skorpion 

mittels seines Hammers zu Fall brin- 
gen. Zu diesem Zweck muß Oily Jake 
mit dem Gesicht zum Skorpion stehen 
und der Aktionsknopf muß gedrückt 
werden. Dann fliegt der Hammer in 

Richtung. Skorpion, sofern sich der 

Skorpion in vertikaler Richtung be- 

wegt, wenn der Hammer den Skorpion 

triffl, so stürzt dieser ab, und beginnt 
wieder von neuem seine Klettertour auf 
der Leiter. 

Oily Jake verliert eines seiner 3 Leben, 

wenn er: 

1. von. der Pipeline abkommi. 

2. zum Ölfaß kommt, wenn die Pipeli- 
ne defekt, und somit der Öllluß un- 
terbrochen ist, 

3. wenn das Zeitband abgelaufen ist. 


Punktwertung: 

5 * Levelpunkte 

für jeden Skorpion, der durch Ham- 
merwurf zu Fall gebracht wurde, 

500 * Levelpunkte 

bei erfolgreichem Erreichen des Ölfas- 
sc. 

2* Levelpunkte 

für jede verbliebene Zeiteinheit des 
Zeitbandes bei Erreichen des Olfasses. 
Schwierigkeitsstufen: 

Das Spiel besteht aus maximal 8 Le- 
vels. Die Schwierigkeitssteigerung be- 
steht darin, daß bei steigendem Level 
das Zeitband immer kürzer wird, und 
der Skorpion immer genauer mil dem 
Hammer getroffen werden muß. Bei 
einer Überschreitung von Level 8 geht 
das Spiel mit gleichbleibendem Level $ 
weiter. 


Wenn Cly Jake seine 3 Leben verloren 
hat, so erscheint wieder das Titelbild, 
und ein neues Spiel kann mittels Druck 
auf den Aktionsknopfgestariei werden. 
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I BEM EEKKEKEIHHEHEHEEEEEEEEEE 
? REM *& PIFELINE VORPEROÖGEAMM  & 
3 BEM X fuer EREER eB8l+Joystick x 
4 REM Zen on nn nn -+ 
5 REM # (e) 1984 bu Tronicsoft # 
?’ REM %* all Rishts bu V.Becker # 
B REM ERKEKFEREFEE EEE FH HE 
9 


=": PRINT : PRINT 
i4 PRINT " Grafik umbeleBgen..uu..") 


: PRINT. : PRINT SPC IBY"F IPEL THE": 


28 FÜR I = 32 TO 2i8:A = RAM CH}: READ Cs: FÜR K = 


a4 G6 = MIDE SCH, zZ EEK + 1, 22:08 = _LEFT$ GE, 13:L8 
nSUB ZeBB:H = R:RS = Ls$: GOSUB ZB: Ko FR 
da “MPOKE 324815 +BE EHE I + K,-l1E FH + L 
5a HEXT K: NEAT I 
ss PRINT "beendet" 
sa FRINT " Fenster belegen. oneaue 3 
EA FOR 1I = 36807 TO 36876866: YFOKE I.,8: NEST I 
4 GOSUE 1866568 
35 GOSsuUB 11668 
356 GOSUB 12008 


57 GOSUB 13008 

ae PRINT "beendet" 

93 PRINT " Hauptfrodramm laden..." 
i86 CRUN | 
a0 IF ASC CcRS> > 57 THEH ER = 
1A R = WAL CRS3: RETURN 


(nans FÜR 1 = 48959 TO 44931 STEP 1924 
i0905 FOR K = 8 TO 767: VPOKE I + K,32: NEXT K 
jnaiß FOR K = 8 TO 736 STEP 232: YPOKE I + K,218: VPOKE I + K + 1,218: 
K.+ 39,218: VFOKE I + K + 31,218: NEXT K 
Iaa15 FOR K= 4 TO 22: VPOKE I +32 KK + 29,228 + K: NEXT K 
1Aa2a FOR K= 98 TO 125: VPOKE I + K»39: NEXT K 
18836 FOR K = 155 TO 721 STEP 96: YPOKE I + K.37: NEXT 
innda FOR K = 156 TO 732 STEF 36: VPOKE I + K,38: NEXT 
10658 FOR K = 187 TO 763 STEP 96: VFOKE I + K,33: NEXT 
iansa FOR K = 188 TO 7&4 STEF 36: VPOKE I + K,34: NEXT 
jaara FOR K = 219 TO 699 STEP 36: VPOKE I + K,35: NEXT 
ina28 FOR K = 228 TO aa STEP 96: YPOKE I + K.26: NEXT 
106936 FOR K = 3 TO 5: VPOKE I + KK + 55: NEXT K 
iß189 FOR K = 25 TO 27: YVPOKE I + K-K + 36: NEXT K 
I 


18118 VFOKE 
18126 NEAT I 


18125 FOR 1 = 33535 TO 33662: VPOKE 1,8: NEXT I ange: 
{9126 FOR I = 41349 TO 41364: READ C: VPOKE 1,C: VFOKE I + 32,6 + 1: 
{Al27 WVFOKE 33555.175: VFOKE 33556. 168: VPOKE 33557 ,44: 

{jöl2e FOR I = 41447 TO 41456: VPOKE 1,1 - 41239: NEXT I 

{0136 RETURN | Eu 

i1aaa FOR I = 4 TO 386: READ C: VPOKE I + 32831,C: NEXT 1: 

(2688 FÜR I = 41983 TO 44831 STEP 1024 

12816 FÜR J= & TO 21: RERAD C# 

12020 FÜR K = 1 T0 LEN cs): 

EXT K 

17825 X = RAM <C#) 

12038 NEXT J: NEXT I 

12044 RETURN 


1388 I = 46559 


1a81A FOR J=6 TO T7:Kk = RAM CC$): READ CS 


12026 FOR K = 1 TO LEN cs): VPOKE +32 £J+1 +K ASCC MIDE CC8,.K, 19): N 


130436 NEXT .J 
13040 FOR J|=B TO 15:4 = RAM cc#): READ O8 
13850 FOR K = 1 TO LEN (08): 


isa608 NEXT J | | 
iaard FOR J = 16 TO 28:% = RAM (06): READ CH 


i202G4 FOR K=1 TO LEN CH): VFOKE IT + 32 #8 .J+ 20 + Ku ASCC MIDE SCH.K, 199: 


13098 NEXT J 
Ser RETURN 


aaa DATA "ORseaaaaaaeaage" , "FFEBZEFFZBZRFF2B" , "FFE484FFa4B4FFB4" , "ZGFFZBZOFF 
"SB2OrF2ZBZOFFZB2B" . "BaDaFFB4BaFFo4Ba" ."FFFFSCFEETOSFF 


Sa2AFF" , "O4FFO4BAFFOADAFF", 
FF" 
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ASC iR) - 55: RETURN 


AABFAFKT 


PRINT SPEC 103" 


TO 7- 
RIGHTS 58, 1}:R$ = HS: G 


+ 725.48: VPOKE I + 726,42: VFOKE I + ars dl: 


VPOKE I +32 kJ +1 +K, ASCC MIDE (CHK, 1530 N 


VPOKE IT +32 % J + 24 +K, RSCC MIDE CCE.K,159: 


vrPOKE I + 7398,43 


NEXT I 
VPOKE 33558,7 





VFOKE I + 
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Baia DATA "BBiFiB3FTFaFiELB","1O1B1B3FFFIFLOIF" , "OOFSOSFCFEFCHBBE" ‚"OSABBSFCFE 
FEBBFR" , "BOBBBOBBBGBGBAGE" , "BRBEBBBAGBBBRHAB" , "BnBnDBDDHEREang" , "ADBODaaaEDanne 
A 

EBa2B DATA "O018242424241800" , "OuBB1LEH3BB080808" , "9a0182404081943CHR" , "9918240304 
Pa1EDB! ‚"OD2EZB2BSBDBUBUR" ‚"80302033604241800" , "O019283824241200" , "083CB488101018 
0638 , DATA "BH18241824241900" , "OH1S24241CH41BHD" , "DOFOSAB7FA1AF7AR" , "BOBBBBED25 
?5BDg8" , "OEGABASEIELBIEBR" , "OOBBEHETETBAF7AR" ‚ "ORDGBBHEH2148590" , "BOB4B4F4F4B4Fe 
ar 

Fand DATA "ISSCACFFFF3C3CAC" , VICBCSCFFFFICSG1E"  "LBISTEFFFFFFIBAE" "LBLBFEFFFF 
Feisien, ‚ "BlBS83FFFF930302" , "B3O303FFFF030381" ‚ "SOCECEFFFFCECOCH" ‚ "CHCOCHFFFFCOCH 
Fagsa DATA "BOgaoerFFFamgsae" , "Ongssaadagaange" ‚ "Lelelglgi1g1g1F12", "Haan 
BBaRBa", ‚"1818181813187FFF", "181818181B1BFEFF" , "FF?FLBLELBISLBIS", "FFFELBISIBLBLE 
EBOEB DATA "BIOraroBaBanaahr" ."ErO7ararnrunanne" , "DBEDERBREHHAHABR" ‚ "COCACHCHSE 
B2u000 "ER 1O7OBBBR BAND) 295950881 OEUBER. )"EREIERUOGDR LEO" EDEDEBEREBIUOG 


Raara DATA "BBabsaaaeue" . "I LaFB3BBdarenee" , "OORBEBFFIFBERHBSR" , "O03e2B2u2n 
En EEE TONER TEN EREET DE RaR BER 2 NR ee 
sanse DATA "BBaBZalBBsablee" , "OEhhehhezearLtl", "OnabassirFFFEABBSE" , "BORsaae1az 
a I LEOBEN ROT T DIDENBELEELERSE EEE BAER TAT BESTE ER SIBESBEREI ES 
Eans6 DATA "BBBsBarSFForagae" . "ORBOBEBEBEciFo2E" "ERBSSBEBFELEBTEL"  "Olnsasalas 
Ben ne Eu en Zn 1 SEES INSELBTT TISTZLETSTDEDER 


eriaa DATA "1818181913303039" , "O1O71EFSEHHGBGER" , "SHnaaaaan1a3u6aL" . "sasacacasa 
kaadaa" , "BnasarFFFEaaaage", "3aFBCBBBERBEBBIe" , "LBLelE1313aLaLat", "1813 139C9Fa50 
3" 
sriid. DATA "6606030530 120A098", "BLENEEBHBELHEH3B" , "EBEBTELFOTBBBABN" . "Oalerd20de 
Tr ee , "LESEREIBEIEABEEE" , "EOLSLCEABAESESEGE" , "dB 
ABi?e DATA "OBsasBaFa7ar7a2se" , "BOBHHERRETa4e4ge" , "Bang", "14saaragee 
SBsach" , "BBBBOGHFE7E7E3IR" "BOB" , "BBazaene" , "33a 
in" 
31530 DATA "EOS Luz", "250491", "EadaardERgEaTaae" , "Ooaaaaadlee 
al , "BaBBanazeLanze" ."LLZusgeaeld4e" , "UOSBBHFBEBERLBEA" , "BOAGBEBAEEZ2BZE 
FaidB DATA "BRBBaBEElleral", "BlB1E1HEBAHBBEER" , "ORaieapededee , "8er 
Aabaaa" ‚ "BBBDaBan1 rar" "als1alaanandange, "BunnnannsnLgEasa", "Bussanasanannn 
a 
Ka15d DATA "BRsaBeeeaeeee" . "area", "Aare". "Fosdeaagee 
ARBBBB" , "BBBBBBBBBEBZIEEF" . "BFBEIEHBBEBBBBIE" , "BERBBBBEBBBBRBER" ,"ERBBEBBBBBABER 
aa" 
Paied DATA "14363614990950303" , "03930301 0B093008" , "ZEECELZEIHARBCHLR" . "COCOCHEBsE 
es ,"8812109559954393" , "6593020 1010A0408" , "1933538199 UABCEEB" , "CACBCHSBEBdlh 
rai7G0 DATA "BGGBEBFoBSFd4saor", "Or&IF4BSFOBBOBaRe" , "ORaaaadazEedrFe" , "FOEBBBAAGR 
BED SL LOBEN SELON ERBE NERSESER SEN ERBEN 7 PPRPERESBRODEBERT IL SFRESBERABBRERE 
A ü 


solad DATA "GEod4aRs 01030303", "0303050914363614" , "ERDE" , "CECEABFBZE 
RLELZE" , "BOB 1303", "930305llllde" , "DHZESBEBSichiete" , "CHcaAsPal53338 
iA" 
sa136 DATA "SF/FFFEBEBEBEBFF", "FFFFEBEBEBEOCHSB" , "ERFBFEFETE3OSBER" , "COS 
hasse". "BFLF3SFO7OrTBr7RO7Or" , "B7BrorarararliFarf", "FEFBEBSBSBSASBER" , "EB3AS032ASAFEFB 
Ei" 





Eeklele) DATA "SFFFFFEBEBEBESFF" , "FEFCEBEBEOFFFFFF'" , "F&EFBEBBERBBBABBR" , "One 
BFSFBER" , "ZGGBEBEBEGEHEBER" ‚ "EGEBEBEBERFFFFFF" , "EGBGEBHIHBHHRHAR" , "BRRHAAHHHRFEF 
ren" 

6a21a DATA "2BSBEBFSFCFEFFEF" ‚ "ETEFESELEGEACHBR" , "0819393833383388" , "BBFBFSFAFS 
BE SE RED SESESUESNN TE ER UREN SEES Du U LEN DR DODDENDRRRE AHORN LEONE DEN 


Ea22B DATA "BaB3B50685hee ."oa4acz4zd4Aadlaae" , "Bar73497Falar7ae" ,"Bab2SZbESF 
ee see ee ee 


532308 DATA "BAFEBLSDRSASEDAB", "BEDS1GBB1A1B1ARR" , "FFFFFFEFFFFFFFFF" 

68235 DATA 184, 196,188, 190, 184, 186, 192, 194,196, 198, 188.198, 200,292. 192,194 
53248 DATA ee re 
289, 161,161, 161 

66258 DATA "HHHHHHHRHHHHHHHHRHHHERG" HHHHHHHHHHHRHRHHHHHHRAK © 


W, 1 1] 





mn | 
BAZEN DATA > a,b HHHHHHHHHHHHHHR Ars" ," © cdeAHHHHHHHHHHHHHHRHEeN" ; ra" 
en26s3 DATA " BE," JJ abDFhi", ae 19 EGBERIKL" 
EazrE DATA ® Ju = mn"," BC BC BE," wu op 


eo 0 8 8 rer rer rer re er rer re ee 5 oe oe 
..—. . .—. .e.e.-e .<—ı. ee. e. er e eE eo ee oe ee oe ee oe oe 08 08 0 


A m: a a m a ce a ai HE: A CE HE N: CA A TEN TEE TEE AT. SEEN. MT TEEN MET MEN. ME MER EHEN TEE SERIE EHREEN ‚HEBT. MEET ER" MET MER" =PEREN: FEN >MHRENS =MHBEHn ABA =MEBEM® SHRBMES _ BMM > mimMBe EM- CEEBPE HiBEA MEET" SEEN FIN TER >. ME TEN EN: CHEN ER TER TERN ER" SENT TEE "ER EIN ME TE EEE "HR FAR" HARE STNT ERBE" MER" FIR SEEN" TÄREN “ME MAN MEER: SEE. MERAN» >HBMEE „THERME Mm: mM Sm <> simmme mm ‚MM. min Hmm mim: sim. mm Mm mir m mie mim m Hm: Mi HE Mi A ol in min: Mm. 






J4",% x4zBHHHHHEArS EC"," WTEAHHHHHREN." 
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ne En oo m m m m m m dm m Hmm. m Hi Kim. ma mE MM MM SEMmMS mM. BMe sim. mm -mmmMs mM mm sim Mmms sis mime, Sim: Mm“ smmBh ie sem ons | sis m m: ae Ge HE GG GE: TEE. CHE HEN HE. TEENS MANN SEEN: TERM CHEN. Sinn FEN: > mie pm rmmB mim sm Hmm ef Hm sie im. me mi <Ea- H- HA- «HE: Ms HA: DE EEE: (AI DONE TA. ME KEmMG, FEN TEE 
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2358 al "HHHHERI 3b @HHHHHHEKI" TERRAIN RN 2 
f BC BC 


mt. Jl 
50294 DATA" " .ab®ars „JJ op," eek JJ - ab®HHRBAIr=", " 
zdeAHHAtu",:" BC 22 Ni BE 3 - pe Fi a a JINQ" 
Eareee DATA " JJ JJ zu",®.BE BE Oo uzRhi"," wu op 
xy zBHHHRArE nn", VZAHHHALUN | | 
saralAa DATA "HHHRHHHHHERi" » "HHHHHHHHRSET" ." rail abPHHeKi"," 
cdeAHHRskl" ," I Fa mn, JJ BC Bo" 
E32 DATA " BCE JJ Ja cp en ra 
JJS JJ"," cdeAHHftu J.J Jsır,w fg ln 
55338. DATA" LM J BE";" NO ar ap", 
op abars"," 4 zBHHHAHHFITFS Jetu'"," YZAHHHHHHREN." 


5G34dG DATA "HHHHEHHHHHHHHHHHHHHHHRH i "  "HHHHAHHHHHHHHHHHHHHHHR.R "mm "BET 


BEN, Hop!" abdre" "cdetu" "Far, "Bot," yJ" 


a a EHE EEE IT EP BB R MER h He 
REM EREREKKKKEEKKRREKKRERRRR KH 

REM * FIPELINE - HAUPTFROGRAMM 

REM * fuer: LASER 2861+Joystick # 

REM k--- nn I 

REM * (Cc} 1984 bu Tronicsoft # 

RE & all Rishts by W.Becker # 

REM ERKKEREKEHEHEREEEEKEE KH 

Reh 

12 DIM c(2) 

i5 FOR I = 599658 TO 593853: POKE I - 39432, PEEK (12: NEXT I 
-d POKE 20433,13: POKE 204960.80: FOKE 20497,96: FOKE 20495, 234 


DATEN lie 


A POKE 29439,0: POKE 26596,226: FOKE 28581.8: POKE 26562.1: POKE 26583, 1: FOKE 


2854,65: PORE 25555. 1' FOKE 20595,.13 
44 BA = 40959: = GB: GOSUB 69980 
45 RESTORE rag | 
47 FOR I = 1 TO 12: READ S: NEXT I: GOSUB slaad: GOSUB 611en 
5A LB = 3:1 = 1:51 =8@ 
SS uU 1 


ed NFOKE 33535,8: VPOKE 33536.208: VPOKE 33337,84: YPOKE 33538,7: VPOKE 33539.8 
: SPOKE 33546,208: VPOKE 33541,126: VPÜKE 33542, 11: YPOKE 33543,8: VPOKE 33544,2 


24: YPOKE 33545. 163: WPOKE 323348, 2 
62 NPOKE 33567.165: 'VPOKE 33568, 168: VPOKE 333589,124: YPOKE 33578, 1 
E35 NPOKE 33543,8: VPOKE 33544,224: VPOKE 33545, 169: VPOKE 33537,84 


a FOR I = 288 TO 16 STEP - 1: YPOKE 33335; 1: VFOKE 23549. 1: YFÜKE 33544, 1 + 1 


{2 


KE 33578,1: GOTO 95 

94 WPOKE 33541, 148: YVPOKE 33545; 172: YPOKE 33570:8 
55. CALL. - 1536: IF FEEK (6245 > 188 THEN 468 

ia6 NEAT I 


13 


Yaaskl"," 


abBHHRArs 


al 


sa IF HOT CI #25- INTSI + 233 THEN YPOKE 33541,136: VPOKE 33545; 165: VPO 


185  VFOKE 33543, 232: VPOKE 33544,216: VPOKE. 33545, 168: VFOKE 33537,890 
116 FOR I = 16 TO 2098: VPOKE 33536, I: YVFOKE 323548, 1: YPOKE 33343, 232 = 


ij? IF NOT Cl #7 25- INT<CI + 255 THEH WPOKE 33541, 128: VPOKE 33545, 168: vr 


nKE 33578;,1: GOTO 195 

139 “FOükE 33541,132: YFOEKE 33545, 184: WFOKE 335r8:8 

135 CALL - 1538: IF PEEK (245 > 106 THEN 466 

aa HNEKT I 

ld GOTO 65 

4a GOSUB BR3BB:P = HB 

SsaaA FOR I = 33535 TO 335465: YFOKE T:8: NEXT I: YPOkE 33578, 1 
sıiA GOSUB 68608 

515 zZM = 34:5M = 18:50 = 1:2K = 176:15K = ZleEı Hu = 1:5. = 
5?# RESTORE | 
za NPOKE 32861-161: FOR ZB = 367686 TO 3656507 + CE H <LV - 122 STEP 
?eB,608: NEXT ZB „. 

"sa FOR I = 33535 TO 33546: READ 5: YFOÜKE 1,5: NEXT I: GOSUB 8ioßd 
aaa FOR LF = 1. T0 2 

Ss4B CALL - 1535 

Ed IF PEEK 24) > 108 THEN - GOSUB Jaaas: CALL - 1536 

ss JS = PEEK 24) - CFEER (24) > 100) & iS 

EAa IF MNOT JS THEN 5336 

Ern Ja = 38-7 Zt: IF JS >? 18 THEN sage 

ssaH OH JS GoslB 10885, 18104, 102768, 193934, 1A, idea 

gas GÜITO 6868 


I 
| 


- 1: 


nn Fa 





JyJ 


BE 








VPOKE 







EEE EN EM. BEE: GEM: EG. HAMM. HAmE | HE: EEE > HN GE A HE GO EG CH HE MH AEG FE ME BE ES > = RE AG: HN: AG TG TEE SOG EN" (EEG A: TE HN CHEN: FE SEEN: FL.» FE «= GH ‚HR Mm MA H= > > GN EG BT HEN GO DR: OH: GE SE MG TO: HE GEHE © HN: A DOG NG TG HG N: GE GG MG TO GN: SE > GE TR) GH GG»: GO DE «A EEE GG GO GGG HE DOG DO GEN GENE TON N SE EEE EEE TER) HE TEENS TE) TEMEn EEE THREE“ TEENS EEE EEE "EEE TEE | TERgS 





FEBRUAR 1985 





s38 FOR DL = 1 TO 98: NEXT DL 

s95 0N MI GOSUB 2rana, 27109, 27208. 27390, 27408, 27599, 23908 

Ada GN LP GOSUB 25080. 25108 

685 NEXT LP 

818 IF ST THEN 30988 

615 GOTO 535 

Sasa = 8-15 ’. | 

sa1g ON JS GOSUE 19588, 19666, 10869, 10808, 19709 

sa20 GOTO 608 

[699 zM = ZM + 2: ON Sb GOSUB 21988, 23968 | 

16516 GOSUB 20199: GOSUB 26899:ZM = ZM + 2: ON SD GOSUB ?2600, 74000 

1aa24 GOSUB 29194.20688: RETURN 

{alas sm = &M + 2: GOSUB 21899: GOSUB 29100: GOSUB 2UAH9:SM = SM + 2: GÜSUB 2206 
9: GOSUB 2B1AB: GOSUB 20000: RETURN 

In209 ZM = 2M + 2:5M = SM + 2: GOSUB 21OB: GOSUB Zeidd: GOSUB ZBBBR:2M = ZM + 2 
:SM = SM + 2: GOSUB 22069: GOSUB 20180: GOSUB 2ARBB: RETURN 

10309 2M = ZM - 2: ON SD GOSUB 21998, 23098 

ia318 GÜSUB ZU180: GOSUB 28098:ZM = ZM - 2: ON SD GOSUB 22868, 24006 

in320 GOSUB 20109,29099: RETURN 

Indan zM = 2M - 2:5M = SM + 2: GOSUB 21008: GOSUB 20100: GOSUB 2U@BB:ZM = ZM - 2 
:SM = SM + 2: GOSUB 22800: GOSUB 2B1B0: GOSUB 2@0@B: RETURN 

12508 SM = SM - 2: GOSUB 23099: GÜSUE 20100: GOSUE 2B000:5M = SM - 2: GOSUB 2496 
A: GOSUB 20108: GOSUB 20988: RETURN 

{acaa ZM = ZM + 2:5 = SM - 2: GOSUB 23009: GOEUB ZU1HB: GOSUB 2a000:ZM = ZM + 2 
SM = SM - 2: GOSUB 24808: GOSUB 28109: GOSUB 20a: RETURN 

{Araa ZM = ZM - 2:5M = SM - 2: GOSUB 2sada: GOSUB ZEiad: GOSUB ZUBU0:2M = ZM - 2 
SH = SM - 2: GOSUB 24089: GOSUB 2B10B: GOSUB 2B09G: RETURN 


Anand VPOKE 33535,ZM: VFOKE 33335.5M: VPOKE 33539.2M: VPOKE 33549,5M: GOSUB 268 


281 DON MU GOSUB 27668. 27184, 27200. 27300, 27400, 27560, 22066 
2ua26 RETURH | | | | 
zB1b8 SM = (54H > = 2165 # 216 + SH = 159% 15 +55 > 163 AHb K5M x 2159) 


zu =.£2M > = 1ir6) X 176 + CZM So = 34) Er cz > 343 AND CZM < 1763) 


21a06 SD = 1: VPOKE 33537,80: VPOKE 33541,132: SOUND £165,1.15>2: RETURN 

22000 NWPOKE 33537,80: VPOKE 33541,128: SOUND €149,1,15>: RETURN 

23986 SD = 2: VPOKE 33537 ,84: VPOKE 33541,149: SOUND €165,1,15>: RETURN 

24a0a YPOKE 33537,84: YPOKE 33541,1365: SOUND €148,1,159: RETURN 

z2sa06 IF SL THEN RETURN 

25018 VPOKE 33578,.8: RETURN 

>51A0 IF SL THEHN 25118 

25/95 WPOKE 33578, 1 | | 

25t1a IF HOT ZB - 36767) THEN ST ® 1 | 

25115 IF 28 = 36735 THEN YPOKE 32861,145: SOUND €195;2,15%: SOUND (175,2,159: 

SOUND £195,2,153 

5120 WPOKE ZB,0:2B = ZB + 1' RETURH | 

26008 ST = 8:2 = 32% INTKZH/O + 215= INT<EM/ BSH IF VPEEKCHI+ A + Z 
+ 5) = 32 THEN ST = 1 

26016 RETURN 


27088 ZK = 2ZK - 4: VPÜKE 335493,2K: VFOKE 33545,169: IF zK < 24 THEN VPOKE 33 


I 





543,8:Mll = d:EU = INT € RND (255) # 176) + 24: RETURN 

27@18 MU = 2: RETURN | 

>7108 2K = ZK - 4: VPOKE 33342,2K: VPOKE 33545,164: IF ZK< = 24 THEN YPOKE 33 
543,8:Mll = 2:EU = INT C RND (255) x 176) + 24: RETURN 

z7118 MU = 1: RETURN | Fre | 

27209 SK = SK - 4: YPOKE 33544,5K: YPOKE 33545, 168: IF SK< = EM THEN ıMU = 6: 
RETURN 

27218 MU = 4: RETURN Beh: r 

27300 Sk = SK - 4: YPOKE 33544,5Kı YPOKE 33349,172: IFSK< = EH THEN : MM = 5: 
RETURN 


> | = 3: RETURN 

27409 ZK = ZK + d: VPOKE 33542,ZK: VPOKE 33545,176: IF ZK > 
:MU = 2:5K = 216: YPOKE 33544,5K: GOTO 27426 

27418 Mil = 6: GOSUB 27608 

27428 RETURN 

27588 ZK = 2K + 4: VFOKE 33543, ZK: VPOKE 33545,130: IF 2K > 
MW = dıSK = 216: VPOKE 33544,5K: GOTO 27426 

27518 Mi = 5: GOSUB 27609: RETURN | 
SrsaB SL = 8:21 = 32 # INT CZK #8 + 2:51 = INT £SK # BI:VG = WPEEK (UI + 2 


i7& THEN ZK = 1r6 


176 THEN ZK = 176 


-— E ze 
u 


zreia IF £CYG > 633 AND. CVG < 7233 OR <£VG > 753 AND CVG < 88553 THEN SL. = 1 
27815 IF <C RES C3M - SKI < 12) AND 6 RBS <CZM = ZKI S 125 THENH ST = 1 


cs—.— 60 7 000} Tr ee 
eo 0 0 0 0 0 0 08 08 8 0 8 8 8 8 8 BL HL Le Le To 0 — 


1 
u e 
B- 
= 65 
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34 HOMECOMPUTER 


erbeh 


27638 CP = 
33343, 2K: 


7) = 
28916 
zei06 


28118 EC1? 
28120 Ci) = 14:23 = 


25130 
28146 


> THEN 


25158 
22168 
zeirä 
Fall 
78138 
eislalsie 
350985 


IF HDT SL THEN RETURN | 
WHI+i1 + 21 + St: YPOKE CP,73: VPÜKE 33946,0:2K > 
NPOKE 33544,5K MU = 7: VPOKE 33570, 1 


176:5K = Z16: VFOKE 


INT CZM # 8 + 23:52 = INT £SM # 89: IF WPEEK (UI + 2z+ 22 +5 


”3 THEN 2B188 


RETURN 
ON Sb GOTO- 25118, 23126 
= 44: Gi 2) = ine: GOTD 28138 
36 
VPÜKE 33338) a 
FOR R = 1 TO 18: FOR I = 1 TO 2: YWPOKE 33541,C° 13: 
SOUND 1as3,153: GOTO ZE16B 
SOUND © 16,3,15? 
NEXT I: NEXT R | 
IF HOT £Sb - 15 THEN WFOKE 33541,132: GOTO 28136 
VPOKE 33541 ,140 | | 
VFOKE 33538, 7:44 = L:SL = 8: YPOKE CP,VG: VEFORE 23046, 2: FETUFRH 
IF RES L?H - 16555 £ 12 AND ABS “SM - 1655 % 16 TAEHN =18506 E 
FOR FL = ZM TO 181 STEP 2: YPOükKE 33535, FL: VPOKE 333539, FL: SOUND CZ86 - F 


IF I#72= INT<CI #2 


1.,1,193: NEST FL 


=] 
>aA1Lz 
Bald 
3aals 
3aA26 
3BA22 
3025 
36538 


250935 ST = 


31466 


VPOKE 33538,8: VPOKE 23541,92 

SOUND €255,1,89,<255,1,89,(255, 1,6) 
SGEN 228 

FOR I = 240 T0 255: SGEN I: FORD = 
IF HOT 3L THEN 36625 

VPOKE CP,VG We | 
FÜR L = ZB TO 36766: VPOKE L;8: NEAT L 
IF NOT LE THEN 48 

5: GOTO 50R 

IF SL THEN 38985 


a T0 75: NEXT D: HEXT I: GOSUB 6400 


210982 PF = F+ 594 * LYı: GOSUB 88269: GOSUB 61188 


18595 LY = 
1816 U = U + 1: 


31A28 
Ei 
31825 
4anan 
42882 
4anad 
danas 
4asih 
+ 
danze 
40035 
4anga 
40045 
4aase 
dass 
4a 


40088 SK = 216:2K = 176: 


Ly #1: IF LVY > 8 THEN LY = 8 
IF MU > 3 THEH U = | 


SGEN 228,255: FOR L = ZB TO 36766:P =P + 2 # LV: SGEN 199,248: GOSIB 682 


SGEH 255: WPOKE L,8: NEAT L 


GOTO 26439 ee, 

IF Mu = 3 OR MU = 4 THEN RETURN 
IF SD = 1 AHb SK < 5M THEN RETURN 
IF Sb = 2 AND SK > SM THEN RETURN 
IF SL THEH RETURN 

VPOKE 33547,2M:_ VPOKE 33548,5M: VPOKE 33349, 148: 
FÜR I = SM TO SK STEP 8% SCH £SK - SM) 

YFÜKE 33548,1: ON 5b GOSUE 40108,40208 

SOUND £135,1,15> | | | 

VPOKE 33548;,I + 4: ON SD GOSUB 40360, 40405 
SOUND £16,1,15> 

NE#T 1 | | 

VPOKE 33550,0: IF ABS CZK - ZM) > Ci4 - LY> THEN RETURN 

FOR I = 2K TO 165 STEP 2: YPOKE 33543; I: SOUND «1865 - I,1,152: NEXT I 
VFOKE 33543,2K: VPOKE 33544,5K: VPOKE 33545, 1EO: MM = 2 


vFOKE 33339, 14 


4daasa PF = F+5 KH LV: GOSUE 68288: RETURN 


4alan 
darnad 
4a3an 
4498 


VFÜKE 33549, 144: RETURN 
WFÜKE 33549. 145: RETURN 
VrükE 33549,152: RETURN 
VFOKE 33549,156: RETURN 


saaaa HI = EA + U &* id24:UA = H + E: GOSUB 6B1BB: GOSUE EB2BB: FOKE 28581,WA: CA 
Li. 20486: RETURN 


ER1EB WPOKE 28 + UL:LY + 48: RETURN | | 
Saraa A= Fa CcPs>3:PS = STRE {PI: FOR PA= 1 TO LEN CP$>: YPOKE HI +6 + PA. 
Asc < MIDS CPS,PA,1)5: NEXT FA: RETURN \ DER e | 
sB209 FOR I = B TO 3:Ab = 48959 + 1 # 1024: FOR K = 6 TOD 28: VPOKE Ab + K-32: N 
ERT & 

sa318 FOR K = 17 TOD 18: YEHRE Ab + K,264: HEXT K: NE#T I: RETURM 

58486 FOR I = 8 TO 3:Ab = 49959 + I # 1024 + Is: YFOKE Ab + LBı32: NEXT I:LB = 
LR - 1: RETURN 

load FOR I = 1 TO 18: READ_L:G1:G2: SOUND: <G1,L:15%1G2:L,152: HEXT I: RETURN 
siifa FOR I = 1 TO 1B: READ L,G1:G2: SOUND £G1,L,159,1G2,L,15%: HEXT I: RETURN 
e2u6d DATA 24:16,689.7,34,16,128, 11,176, 216, 160,2 | | | 
FzBid DATA 6.175.160, 6, 169, 125,2: 165, 148,3, 160, 135,6, 148, 128,6, 160, 135,6, 135, 11 


=,3.148,128,3,135:113; 6,128,95 


B2rnz2e 


DATA 6.135, 113,6, 113,75,6,95,69,6, 1695, 148,3: 169,135, 3, 165, 148,6: 148, /S.1 


7.139,69 


52h 


48,3,168.135:6,148; 75, 12:135;65 


DATA 3,184, 165,3, 175, 160,6, 165,148, 3, 175, 169,3, 165, 148,6, 168, 135,3, 165,1 
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Fortsetzung von Seite 11 

ein Kabel unschün um das Gerät liegt. 
Das an sich schon klobige Modul des 
Floppies ragi weit rechts hinaus und 
bedeutet wiederum einen Platzverlust, 
zumal das Flachbandkabel zum Lauf- 
werk sperrig ist und zwischen Eingabe- 
einheit und Floppy gelegt werden muß. 
Wäre diese Schnittstelle an der Geräte- 
rückseite angebracht, so künnte man 
das unschöne Kabel dezent an der 
Rückwand des Arbeitstisches verstek- 
ken. 


Fazit: 

— Der Dragon hat an Schnittstellen al- 
les, was man zur kommerziellen An- 
wendung. benötigt, es fehlt hier an 
nichts, nur hätten die Konstrukteure 
die Anordnung optimieren können, 
hätten sie die Interfaces an der Rücksei- 
te des Computers (wie bei anderen 5y- 
stermen praktiziert) angebracht. 

Platz genug wäre vorhanden, da ım Ge- 
rät selbst sehr großzügig mit dem reich- 
lıch vorhandenen Raum umgegangen 
wurde. 

(Dies ıst aber nicht unbedingt eın 
Nachteil - siehe Kat. 4) 

Die Anschlüsse wackeln nicht, was mir 
bei manch anderem System unange- 
nehm aufgefällen ist — sie sind sicher 
vor Anstoßen und ähnlichen schädli- 
chen Aktionen seitens der User ange- 
bracht. 


Innerer Aufbau 
Ausnutzung des Raumes: 


. - Öffnet man den Dragon, so fällt sofort 


die saubere und übersichtliche Anord- 
nung der technischen Elemente auf. 
Mit dem vorhandenen Platz wurde hier 
sehr großzügig umgegangen. Diese Tat- 
sache erleichtert erheblich. eine evil. 
Reparatur, bzw. Einstellungen im Ge- 
rl, 

Auch dem Laien bereitet es keine 
Schwierigkeiten, die wichtigen Teile 
wie CPU, diverse ICs, Regler u. del. zu 
finden. 

Alle Teile sind sauber verlötetl, bzw. 
fest verschraubt und leicht zugänglich. 
Negativum: 

— Durch den oben beschriebenen groß- 
zügigen Umgang mit dem vorhandenen 
Raum ist die Ausnutzung nicht opti- 
mal. 


Basic-Interpreter 
Microseft-Extended-Colour-Basic: 

— Im Dragon ist ein äußerst komforta- 
bles implementiert. Viele andere Syste- 
me müssen eine extended Basic-Ver- 
sion erst einladen (Steckmodul), was 
Speicherplatzverlust zur Folge hat. 
Mancher Kassenschlager kann sıch hıer 
ein eroßes Stück abschneiden! Mit Gra- 
phikbefehlen wie z. B. Draw, Line, 
Paint, Color u.s.w. läßt sich relativ ein- 
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fach in hochauflösender Graphik pro- 
grammieren. Die Musikbefehle Play 
und Sound sind m. E. die einfachste 
Möglichkeit, Musik und Geräusche zu 
erzeugen — beim Dragon gibt es kein 
umständliches poken und peeken - dar- 
aus folgt: 

Zeit- und Speicherplatzersparnis bei 
Arbeiten mit Graphik und Musik! 
Auch die Stringbehandlung (zur Text- 
verarbeitung pp.) ist denkbar komiforta- 
bel mit Befehlen wie: 

INSTR, STRS, MIDS, ASC, CHRS, 
VAL, usw. 

Mit 16K ROM hat der Dragon zwar cın 
durchschnittliches ROM in Bezug auf 
die Quantität, aber die Befehle sind von 
eroßer Komforiabilität — der User sparı 
Speicherplatz und Zeit en masse, 


Diskettenhetrieb: 

— Wenn man eine Diskettenstätion an- 
geschlossen hat, so stehen, außer den 
für Diskettenbeirieb notwendigen Be- 
fehlen, noch weitere Befehle wie z.B. 
AUTO, BEEP, ON ERROR GOTO, 
ERL, ect. 

Diese Befehlserweiterung kann den 
Drachen zum Apfelbeißer machen, von 
Konkurrenten in gleicher Preisklasse 
ganz zu schweigen. 


Benutzerfreundlichkeit 

Peripherie: 

- Durch die Eingangs erwähnte profes- 
sıonelle Tastatur eignet sich der Dragon 
bestens für den PC Bereich. 

Das Basic trägt noch seinen Teil dazu 
bei, ebenso die erhältliche Peripherie: 
Drucker (Matrixdrucker), sehr schnel- 
les Diskettenlaufwerk (ausbaufähig), 
Farbmonitor, Datenrecorder mit hoher 
Aufzeichnungsgeschwindigkeit, 2 Joy- 
sticks (leichteängie, reagieren sofärt, 
Hebel bleibt in gewünschter Stellung, 
gute Handlichkeit, gut erreichbarer 
Druckknopf). 


Betriebssystem; 

- Das nur für den Dragon 64 erhältliche 
OS-9 Betriebssystem, das dem verbrei- 
teten, aber teueren, UNIX-Betriebssy- 
stem ähnlich ist, hebt den Dragon 64 in 
die PC-Klasse hinein, 

Für knapp 5000,- DM hat der Anwen- 
der ein vollwertiges, kommerziell nutz- 
bares Betriebssystem mit Anwender- 
software (Spellcheck, Mailmerge, C- 
Compiler, ect.) und weiteren höheren 
Programmiersprachen. O5-9 ist nur ın 
Verbindung mit einer Diskettenstation 
Zu AULZEN, 


Soflware: 

— Die erhältliche Originalsofiware für 
den Heimcomputerfreak ist trotz Ver- 
doppelung des Angebotes an Spielen 
sehr spärlich. Außerdem ist mir aulge- 
fallen, daß auch die Originalsoftware 


von Dragon nicht alle Möglichkeiten, 
die der Computer auf grafischem und 
auf musikalischem Gebiet bietet, aus- 
nutzt. 

So sind auch beim Dragon mehr als 
vier Farben pro Graphikmodus mög- 
lich - auch die Erstellung von Mischfär- 
ben — sowie durchaus anspruchsvolle 
Musikefiekte bis hin zum polyphonen 
Spiel! 

Die Anwendung der Software wartet 
schon mit qualitativ besseren Produk- 
ten auf, wie z. b. Alldream Assembi./ 
Disassembl., Forth, Graphik-Anıma- 
tor, Finanzverwaltung, Dateiverwal- 
tung, Syniher 7, Music Box, usw. 

Zu erwähnen sınd hier noch die man- 
nigfaltigen Programme.von englischen 
Usern (vornehmlich Anwendungspro- 
Framme}. 


CPU: 

—- Die CPU 6809E besitzt mannigfaltige 
Adressierungsarten, die diesen Prozes- 
sor zu einer Einheit der gehobenen 
Klasse macht — sie arbeitet intern mil 
16 Bit! | 

Der Prozessor verfügt über 59 verschie- 
dene Befehle in Verbindung mit lÜ Ad- 
ressierungsarten, 

Daraus ergibt sich eine totale Anzahl 
von 1464 Möglichkeiten. 


Handbuch | 
— Das Handbuch zum Dragon stellt eı- 
nen weiteren Lichtblick dar, denn es ist 
didaktisch gut aufgebaut, beinhaltet für 
den Einsteiger genügend Grundinfor- 
mationen und ist grammatisch und or- 
thographısch korrekt gestaltet. 
Anfangs verwirrt die Aufteilung der 
durchgehenden Erklärungen und der 
zusammenfassenden Erläuterungen et- 
was, jedoch sind sie farblich voneinan- 
der abgegrenzt, so daß man recht 
schnell durchblickt. 

Verschiedene Anhänge am Ende des 
Buches verdeutlichen die Struktur des 
Dragon, außerdem enthalten: 

Print at-Arbeitsblatt, Arbeitsblatt für 
niedrie- und hochauflösende Graphik. 


Vergleiche zu anderen Systemen 

— In seiner Preisklasse hat der Dragon 
auf kommerziellem Gebiet, nach mei- 
nen Erfahrungen, auch mit anderen SY- 
stemen, keinen Konkurrenien, wohl 
aber im Bereich der Spiele — hier müs- 
sen sich die Programmierer noch etwas 
bemühen — vor allem ist ihnen anzura- 
ten, die Möglichkeiten des Computers 
auszuschöpfen und nicht nur nach 
Schema F Programme nach Standard- 
muster zu entwerfen. 

Für kommerzielle Anwendungen, ıch 
denke hier insbesondere an Rlein- und 
Mlittelbetriebe, hat der Dragon 64 das 
günstigste Preis/’Leistungsverhältnis. 
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Dragon 32 







(-05-9-, großer RAM-Speicher, Basic, 

Schnittstellen, u.s.w.) 

Zur Textverarbeitung stehen 4$K.nutz- 

bar für Basic zur Verfiigung (mehr 

als...Y das sehr schnelle und durch gro- 

ße Speicherkapazität auffallende Dis- 

kettenlaufwerk ermöglicht ein beque- 

mes Arbeiten — in diesem Zusammen- 

hang wäre noch zu erwähnen, daß der 

Dragon 64 

a)in Maschinensprache die vollen 64 K 
zur Verfügung stellt 

b} softwaremäßig völlig kompatibel zu 
dem Dragon 32 ıst und teilweise 
auch zu den anderen Rechnern mit 
6509E CPU! 

Das Disketienlaufwerk ermöglicht den 

Direktstart eines Programmes = d. h. 

ein im Diskkatalog gespeichertes Pro- 

eramm kann mittels Eingabe von 

"RUN“+Name sofort zum Ablaufen 

gebracht werden. 

(Kombinierte LOAIYRUN-Eingabe) 


Ich würde, auch nach einigen Tests mit 
verschiedenen Systemen in der Preis- 
klasse bis 1500,-, wieder auf das Dra- 
gon-Sysiem zurückgreifen. 

Meiner Erfahrung nach ist der Dragon- 
Computer {insbesondere der Dragon 
64) ein Gerät, das dem Anwender kaum 
Wünsche offen läßt, sei es in Maschi- 
nenprogrammierung (- CPU 6509E’/in- 
tern 16Bit) oder in Basic (Extended co- 
lour Basic implementiert) oder in kom- 
merzieller Ausnützung (OS-9 System, 
C-Compıler, Pascal, Forth). 

Die noch offenstehenden Wünsche hin- 
sichtlich guter Spiele dürften eigentlich 
kein Problem darstellen, zumal die 
User schon mit teilweise schr guten 


Programmen aufwarten können! 














134 IF PEEK € 3395=254 THEN GOTO 268 

aa IF PEEEC345)=254 THEN GOTO 1686 

z1A. IF FPEEKC341 de254 THEN GOTO. 1980 

226 IF FEEK (342 )=254 THEN GOTO 1238 

2=0. IF FEERC343°=254 THEN GOTD 2878 

248 IF. PEEK« 344 )=254 THEHN GOTO 39828 

256 GOTO 136 

z6M REM saulendiasramm 

ra GOSLUB2338 

>36 MA=#A 

>aa MI=A 

“aa FORI=S1TO A 

16 IF KRCID>MA THEH MA=SKRET) 

Bra IFKRCT9SMI THEH MI=SKRIT >} 

3309. NEAT 

349 KRe24d-f 

sa IF MA>G THEN Yelireo-KAr4ırMA 

=66 IF MI<=8 THEN Tal 17a-HR-4 Ic HA+ABSCMIT I? 

=7a FH=156 

=8A IF MI<{& THEH FH=INTC130+MI#HT) 

aa, FMObDE4,;,1 :SCREEHL:1:FLLS 

439 LINEL?:FHI-C 252; FH>,PSET 

414 GR=#:C=5:4UA=1:SE=SFHH+H2: Kbe"o" :GOSUBETIO 

42a FOR I=1 TOR 

4306 E=1-1 

448 K=1lNTCBFHRFFAF Fr L=INTCERC IR IKB INT HRFE IE KC=INTGE KA HERD=INTCHCHL. 42 

45A4 DRAW"EM"+STRSECHI#+","+STRESCFH? 

468 IF KR£IH>=B THEN DRAYM"'R"+STRSCHB PH" U"+5STRSE 1 IH" LI +STREC HE I+ "N" +5 TREU dr" N 
+1 +STREL AO Ir" ,-"+STRECHD IH" R"'+STRSCHB) 

47a IF KRCIISB THEN DRAU"R"+STREERE IH" DIHSTRSCHESE N DDr" LI +STRSC HB Ir" U’+HSTRSC ABS 

Crl 39H" MH +STRSE HC I+" ,-"+STRSC HD I+"R"+STRECHB) 

4SA IF KRCII>=B THEN DBERKM"HM-"+STREC KEIN +" +STRSCHO I+"D"+STREC VL )+"M-"+STRECcHE) 

+", +"+5TR$1%0) 

434 IF KR<EIx08 THEN DREAK"NM-"+STRE HC IH" +" +5 TRSC Kb Ir" D"+5STRESCABSC Y1 3 9+"M-"+5TRS 

CHEI+" +" +S TR AD > 

sam WA=A:SES13F:GR=SB:6=35:65=5TRE KRGT2) 

1A GOSUB2r7E8 

sea NEHTI 

3a. FÜR: Zei TO5Rag: NEXTZ 

4a CLS:PRINT"WOLLEN SIE EINE HARDEOFYT SC JAN >" 

sS5a INPUT As 

568 IF As="J" THEN GOTG 646 

Esra IF As="H" THEN GOTO 595 

SBR GOTD 5568 

99 CLS!FRINT"WOLLEN SIE DIE GRAFIK WIEDER SEHEHT CJ#HN 3" 

sad IHFUT Hs 

r18 IF As="J" THEN GOTO 1926 

s28 IF As="H" THEN GUTO 166 

Ban 65 

As4d REM hardcopy" 

#58 DEF LUSRO=32508 - 2 

E&A FEINTB=-?.: CHRST 27 3; "RA" SCHRSEC EB 3; 

Era FOR 1I=32588 TO 32533 

EBA READ INH:FOKE I; IHH 

&9A HE#TI 

an IF PEEKC 1545 >255 AND FEERC1S45 CHE THEN FOKE32505, HC: FOKE323563.,&H24 

‚id GOSUB 1218 

28 %=U5R0C8) z 

7a FEINT#=-2,5TRINGSCS. CHRSC 13 77 

748 CLS:PRINTRZBB, "ENDE DER RUSGRABE" 

5A GOTD158 | 

FEAR REMEFFF MASCHINENCOBEFFFH 

ra DATA &H34,&H7E 

"86 DATA &H32,;%&H75 

aA DATA &HBE . EHAS. &HBE 

Bad DATA &H5D.&H3E 

a1 DATA &HIF,E&HLZ 

s27# DATA &H31,EHAS,EHZO 

83G DATA &H18, &HAF,&H69 

S465 DATA &HIF.;&HIiZ 

s5A DATA &HCE. &HG7 

BAR DATA BHE?:&HEB 

87B DATA &HA6, HA 

SE DATA &HAT.&HES 

855. DATA &H31.&Hfs,&H2B 


[: -E 
E N 


EEE EEE CE En HE EN: TEE "HE SEE TH SEES. FON SEEN SEEN" MER FE = il m A Mh u A MG EG EG HG A ET SG EG ET SG AT SO MN TE: EN" EN > DE MN "ME TG MN CO HEN SEEN MENT MT FIN" MER MN FB MT HH MH: MR SB © ME DH FH m mp > FG HH: OHG HS HB GG HG, GG A: a wi HH: Ka HE a (HE: HG ME: AN SO va ci Es GH: <a a SE SOME SE: GE HN: TO HG AAN „THE HG MEN: HE GE GE. BG 
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gan DATA &HSA 

314 DATA &H2A,BHFE 

978 DATA &HC6 BHO? 

324 DATA &H69,&HES 

949 DATA &H49 

s5a DATA &HSA 

328 DATA EHDA,RHFR 

37a DATA &H34,&H30 

3ad DATA &HED,&HBB, RHOF 
348 DATA &H35,&H30 

1834 DATA &HEA. HE 

{518 DATA &H2A,&HED 

1828 DATA &H38,&HB1 

1923 DATA &HAC-&H69 

1048 DATA &H26,&H07 

{958 DATA &H38, &H89, KHOQ, KHEO 
{68 DATA &HBC.&HIE&HBB 
1978 DATA &H26.&HC4 

{950 DATA &H32,&HEB 

{A9G DATA &H3SsCH FE | n: 
{198 DATA &H22,&H8C.,&HOF atsatzr=ts 
{118 DATA KHCE, &HBS 

1124 DATA &HAB.EHOR 

1138 DATA &H34,&H54 

1148 DATA &HED, LHEB, &HAF 

1150 DATA &H35,&H54 

1160 DATA &HSA 

1176 DATA &H2s,&HF4 

1158 DATA &H39 

1190 DATA &HAR,&HIE, &H4B,%HBR 

1200 DATA &HO1 

1218 CLS:PRINT® 208, "DAS FOLGENDE BILD") 
1224 PRINT B264, "WIRD AUSGEGEBEN". 


1234 FOR Jei TO 588:NEAT J 
1#49 PHMODE 4, 1 :SCREEHL.B8 
1754 FOR J=1 TO 18686: NEXT J 
ml tl za 





ee Tr rg Ir 01 12 2318 


A RETURN 

1275 PEN verlaufskurve 

i28A GOSLUB233B8 

1258 HI=B 

13589 MA=B:FOR N=i TO A 

131 IF KRONJ>MA THEN MA=sKRCH)} 

132AR IF KRCH><MI THEN MI=KRCN) 

1335 NEXT 

13244 IF MA<>E THEH Yelsß-HA 

1355 IF MI<SB THEN T=188- MA+RBSCHI>?) 
1356 FH=13# | 

1374 IF MI<6 THEH FH=INTE 188+MI&T) 
13259 FMObE 4, 1:SCREEHIL.1:FELS 

1338 LINEG 28, FH I=-C 258; FH), FSET | | 
14aa LINEX 26, 180 9-( 28,18), PSET 0-3 #564 Hi 26 SB RT 12-15 
1418 LINEX 78, 188 3-( 256,186 3, FSET 

1428 T=240 AR 


=28 
j4d4a IF Mi>=G THEN FOR N=8 TO MAHMA-ZB STEF MA/1B ELSE FOR H=MI TO MASTER CHA+A 
BSCMI 918 
1458 LINES 18, FH-NE#Y 2-6 22, FH-NET 2: FSET 
ideB GS=5STRSEt INTCH#109718 3 
idr7a WA=2:SE=SFH-HEY :GR=B:C=5: K6=G$: GOSLUBZ7EB 
1480 IF ABSCH>>=1B THEN G$= =5TRS8£ INTCHN>} 
1438 IF ABSCHI<B THEN GE&=5TRSCC INTCH#1B8 71087 
1548 HEAT 
1516 FÜR Zei TO A-1 
1528 LET #=5#T 
1534 LINE CH=-T+FH-EREZIHT 7 - FH-KRS Z+ LET PH FSET | 
1549 HA=1NTCH-T}:5E=139 1 KE=5STREC Z I: KS=SRIGHTS$T KS, LENCKS P-1 9: G0O51UB2758 
1558 LINEC #-T, 182 9-6 #-T, 1787, PSET 
1568 NEHTZ 
{578 WA=SINTCH I: SE=S1B3: KESSTRECA) KE=RIGHTECKS, LENCKED-1 9: GOSLUB27EO 
158A LINECH, 1E2 9-CA, 1783, FSET 
15% FOR R=1 TO 5809:NEXT R 
1685 CLS:FRINT"WÜLLEN SIE EINE HARDEOPYT SJ#HN >" 
1610 INPUT A$ 
1626 ER At="J" THEN GOTO 548 
1635 IF A&="H" THEH GOTO 1640 | 
1645 Cis: PRINTTWOLLEN SIE DIE GRAFIK WIEDER SEHENT G.JN3" 
1658 INPUT A$ 
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1652 IF As=".l" THEN GOTO 1928 

IlE7A IF As="H" THEN GOTO 168 

162# REM balkendiasramm 

16398 :GOSUB2338 

1789 PCLS:FMODES3,1:SCREENI1,8 

1718 Keid:ıY=-185:De2 

1728 K=15 

1738 FÜR H=1 TO A 

1748: BRAU"'C4HEM"+STREC INHTC AP 3+" . "+STRSC INT VI HH"; " 
a el m in EISL"+STRSC INTEDEKPL HI I IH" G1SNDZSR"+STRSC INT 
e DEEP 

1788 GR=7:6=B:WA=1HTC KH 3: SE=SINTEN HK: Kb=STR&L INTCKFCHN IH" A" KESRIGHTSCKS$ - LENCKS} 
-1 : GOSUBZF39: K=ak+14: IF K>=72 THEN Kels 

1778 IF INTCKPCH EZ 33=4 THEN PAINTSAH3: 1-23, 2,4 

ıre3 IF INTCKPCNPHD>>e4d THEN PAINTEA+3. 1-26 5, 2,4 

1794. K=K+INTEDHKFCHN?) 

1846 NEXT 

1814 DEAU"EM"+STRSC KH )+","+5STRECYIH"ELSU2S”" 

1824 FAINTCK+3,1-59, 2.4 

1838 FOR Hri TO 59688: NEAT 

1848 CLS:PRINT"WOLLEN SIE EINE HARbEOPTT GC JFN >" 

1856 INPUT As 

136A IF As="J" THEN GOTO 6484 

1876 CLS:FRIHT"WOLLEN SIE DIE GRAFIK WIEDER SEHENT £ JH >" 
1838 INPUTA# 

1330 IF Ag="J" THEN GOTO 1328 

1S54A IF As="N" THEN GOTO 1608 

1918 STOP h 

1328 CLS :PRINT "MIT m KOMMEN SIE WIEDER IN DAS MEHUE" 
13308 FOR Rei TO 1895: HE#T 

1546 SCREEHI:& 

1559 A$=INKETS$ 

18654 IF As="M" THEN GOTO 166 

1976 GOTO 1948 


ae ee ANNIE 


4 nd ILL | ıl \ | 


2448 MA=127 :MiY=95 ER | | 
2A5@ CIRCLECHKM RES Fe u EA 
2B58 CIRCLECHK- Ni+ZO),R: ,,9,8:0.5 77 u. EH 
2ZB7a LINEC47.,359-647, 1153, FSET ar - ie 
FBah LINEL 287.95 9-C207, 1159, FSET ie ee 
2698 ERSETZEN] SS re N 


=g 

zild Kl=207:'Y1=95 

21?8 FÜR N=1 TO A 

2138 F=P+KPCH) 

2140 Ul=3.64P 

2158 R=73 

zei&8 IF HI>188 GOTO 2258 

z1i72 BO=(FPIFUI 37188 

2184 K=RKCOSt BO) 

2196 Ki=eRX2#C0SCB0) 

>209 Y=RKSINCEO) 

zrld TYi=eRt23L0560) 

>22 IF WI<=186 THEN LINECMK, MI I=CINTENKFK I, INTEMY-Y72)), PSET 

27a GR=B:26=5:WA=1INTE HA+RHL. 32 3:1 SESINTEMV-VFZHL. 3-23: KE=STRE INTCKPCH PP +" AK 

=RIGHTSC K8, LENG KS$ 7-1 >: GOSUBZ 738 

2244 G0T02318 

2259 BO=CPI#UI 3188 

2264 K=RkCOSBO) 

2278 V=R#SINCEO) 

zaea LINECMK, MY I=C INTEMKFK I, INTCMY-Y/22 9, PSET 

2299 LINECINTCMK+RD, INTEMY-Y/2 39-6 INTCMB+F 4 INTCMY-Y/2 +2 LI: PRESET Pe 

2an0 GR=B:0=5:Ks=STRSC INTCKPCH II IH" KS=RIGHTECKS ,LENCKSI-1 I: HA=INTE MX+RH1.35-1 

-43LENCKS I J:SESINTEMY-T/281.55+6 ): GOSLUBZ7EB 

2318 NE#AT 

2328 GOT0S538 

2330 REM #k% eingabe kt% 

2348 CLS:IF GE{>B THEN PRINT"WOLLEN SIE ALTE WERTE BENUETZENT CJ/ND" 3 

2354 IF GE<>A THEN INPUT Is:1F Is="Jj" GOTO 2476 

2368 ELS:PRINT"MÖLLEN SIE DIE WERTE IN PROZENT ODER ALS ABSOLUTZAHLEN EINGEBEN 
BEI SAEULENDIAGRAMMEN UHb BER WERLAUFSGEAFIK 51 

N "NUR ABSOLUT-HERTE MOEGLICH“ ı INPUTIS 








. 1 
Per 
eo ee 8 8 8 8 8 8 88 8 8 co 8 co CB CP CB TC TB TC CB CC 8 8 BB 8 8 © 
. 1 L. | 
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>37 CLS:RA=1:PRINT"GEBEN SIE EITTE DIE WERTE EIN. PM ENDE DANN BITTE x." 
2354 INPUT C$:IF CE="%" THEH GOTO 2486 ELSE IF Is="P" THEN KPiAd=VALiCH) ELSE KR 
£ AI=YALCESE 3 

2390 A=A+1:GOT02358 

2480 F=A=-1:IF Is="P" GOTO 2478 
2410 GE=SB:FÜR Hel TOR 

40 GE=SGE+ABSCERCH >> 

2430 NEHT 

4440 FOR Hei TO RA 

2450. KRCHJERBSCKRCH I IrGEH 168 
2460 NEXT 

2470 GE=| 

420 RETURN 

2428 REM #4# zeichensaetze E## 
-5aa DIM A573, EH57) 

251# RESTORE 

Zara Ascde)=e"Bh#Hl, Ha; MH, +" 
san ASc4a)=e"R2LLU4GL" 

En Ak Sad="NRZUTEIEIHILI" 
sa ASS >=e"RiEIHILIRIEIHILL" 
565 Asse" BHrl, +; UIGZRZ3" 
Far AscSa)=e"RIEIHILIUFRZ" 
zog As 54)="Brrd,-1;FIRIEIHILLIGLUZEIRT" 

5a Aloe" UIEFLE" 

rad Asl5de"BhM+i,-1; FIRLEIHILIGIEIHIEIRAFIGL" 

#10 AS de"RLELUZHLLIGIFIRIET" 

zErB Asc 37 ıe"BiM#n, -4; M+B, +8; EM#+B, +4 ELUIRLULEI1 : BM+B , +4; M+B , +0" 

P6&3A Astdaje"Eh+d,-1:; FIRLEIUZAILIGIDL" 

24a At 45="Bi+g,-2; El" 

sh BScde Je"EBi+l,. 48; El" 

ers Bl" Rd AUSsLIGl" 

zaöra Bel 5a ze"NRAUIEIRZEILIHILZGI" 

2659 BSC51 Je"BiN#+B,-1;FIRZELUIFRILIRIEIHILIGL" 

era BC 57 3="BM+3, 40; DEGER4" 

2706 BSC 53 3="EM#+B,=-1; FIRZELIUIHILZUZR4#" 

2718 Bst 54 )=e"Bh+d,-1:FIRZEIHLLZGIUSEIRZFL" 

ren BSC55 Je"UIE4L4DL" 

2730 Bisc 56 )= U BNN+B, TL5FIRSEIUTHLLZGIDIUSEIHIEIRZFIGI" 

7740 BEI re" Bi, = 1; FIRZELUSFHRILZGIFIRZEI" 

750 Bl 37 =" EdEHM-4 , -G: EFGHEH +4, #4; GHEF" 

rs BElds)=e"EmM+ß,=-1; FIRZEIUSEHILZGID3ES$" 

e’ria RETURN ° 

Fran REM #+#* aussahe +++ 

27=0 FOR Ueli TO LEHCKS} 

rad B=eRsct MIDSCKE.U,1 9) 

>81A IF GR=6 THEN DEAU'S4BEM"+STREC HA +". "+STRSL INTESE 934" "HC" +STRSCC HHASCDO > EL 
SE DRAU"SSEM"+STRSCHA +". "+STRSC SE IH"; "+" C"+STREC CC + BD" 

"Eh HA=SHÄFr4HGR: IF HAPZSS THEN SES5E#+8:WA=H 

zen IF B=46 THEN HA=SAUA-1 

Fade NEHT U 

ao RETURN 

zer REM abspeichern der grafik" 

rarH LCLS 

Beh FRIHT"BEHUTZEN SIE ECAHSEETTE DOER DISKETTE?T CD }" 

2#98 IMFUT A& 

zes IF As="C" THEH GOTO 2928 

-9160 IF As="b" THEN GOTO 23805 

2978 CL5:PRINT"HAHE DES DIAGRAMMES BITTE?" 

338 INPUT As 

2944 CLS:FRINT"BITTE MACHEN SIE IHREN RECHRDER BEREIT UND DREUECKEN DAHN s. H 
RCH DEM ABSPEICHERN KOMMEN SIE MIT m WIEDER IN DAS MENUE," 

-35A IF INKETS="S5" THEH CSAYEM"AE" ,1535,76793,1536 

29545 IF INKEr£="M" THEN GOTO 166 

>70 GOTO 2956 

29a CLS:PRIHNT"BITTE LEGEN SIE EINE DISKETTE EIN UND DEUECKEN DANN =. H 
ACH DEM ABSPEICHERN KOMMEN SIE MIT m HIEBER IN DAS MEHUE." 

23985 IF INKETYS="5" THEN I"DIAGRAMM" 30972, 7880, 2072 

aaa IF INKEYS="M" THEN GOTO 168 

said GOTO 2936 

35?7B REM ###einlesen von SrafiktH 

3030 ECLS:PRINT"YON DISK DDER CASSETTET £D/CH" 

=a48 INFUT Is 

395 PHMObE4,.1:IF Is="b" -THEN LOAb"bIRGRRAMM.BIN" ELSE CLS: INPUT"NAME DER GRAFIET" 
ıIS:CLORDM Is 

sa6s6 SCREENI.1 

sora GOTOS3B 
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San des Spieles Ist es, eine Schlange 
in kürzester Zeit möglichst viele Äpfel 
und Kirschen fressen zu lassen. Dabei 
müssen Sie darauf achten, daß die 
Schlange nicht ein. Hindernis, den 
Spielfeldrand oder sich selbst berührt. 
Geschieht dies trotzdem, verliert ste 
sofort ein Leben. 

Sobald sich die Schlange in Bewegung 
setzt, Huft ein Zeitbalken ab, Gelingtes 
ihr, während des Ablaufs eine Frucht Zu 
fressen, wird. der Balken ermmeuerl, wenn 
nıchi, erfolgt Punktabzug. 

Das Progamm verfügt über drei 
Schwieriekeitszrade und die Punkte- 
und max. Punkteanzeige (Highscore). 


Jetzt überall 
im 
Zeitschriften- 
handel: 


FEBRUAR 1985 


SNAKE 


für Sharp MZ - 700 


Tips zur Eingabe des Programms: 


In manchen Zeilen steht eine PRINT- 
Anweisung mit Änführungszeichen, ın 
denen schwarz unterstrichene Ziffern 
und Buchstaben gedruckt sind. Dies 
sind zweistellige Hexadezimal-Zahlen, 


a 





die nebeneinander stehen. Ihr dezima- 

ler Wert entspricht einem Zeichen aus 

dem ASCI-Code, welches der Plotter 

leider nıcht ausgibt. 

Die nun folgende Tabelle zeigt die He- 

xadezimal-Zahlen und das dazugehöri- 
ge Zeichen. 










Das Softwaremagazin 


MOMECOMPUTER #1 


für Heimcomputer 








IE REN en ab a Br gr a a re re a ge ee 
28 REi »- (CC) SNAKE ‘B2,84}) » 
38 REN - eu 
Ag REN - Copyr ıaht Dy ” 
SB -REN * r 
EB REN Use Höärher - 
-B REN + See londerr. 4 en 
BB REN * 852] Oberreichenbach = 
38 REN + nun aaa nn 


128 COLOR ,;6;,0 
118 X=4: CONSOLE: TENFO 7 
128 N0=33248: FA=2048 
130 PRINT"E": 

REN GRAFIK 
140 Se=" EECICHCIEDMARBSAREEREE: 
STERBRRBARECICZUBELFCFEREDCICHCSCH 
BEICILCIFECFREAEL/CPORABBRBALPEDCH 








NERBRRSEDLAICHTHEE" 

158 51$= gesaass BAABRERRH 

asH 08 BBASEEB NEE DESERSES 
USsERaE " 


168 FOR A=15 TO I STEP-1: MUSIC"-Co" 

178. LURSOR-A+2, A: PRINT 51% 

188 CURSOR A#+l,A=-1: PRINT St 

198: NEXT A 

208 He="CHEB EFCSERSSBSEECH ED C5csaa 
EBEBBECFCIEDED CSC5BESBBBRELFE? EDEDESCS 


SEABERBEC/E? ED CSEEABBARRC?OA  ECcS” 
218 Ni$='" DAEBAFBH SHEHAIAH 

LHERAGER efelzieisfaleiz OEEH 
BB F 


228 FOR A=15 TO ı STEP-1: NUSIC"-ERB" 

238 CLRSOR A+l@,A+3: PRINT Ni® 

249 CLÜRSOR A+9,A+2: PRINT Ns 

259 NEXT A 

2608 Es="EECICHCICHHASHHECHEDCICHUABBECSE 
BERCEBHRRRLSDBEBDDWAEBACSEDESCHSERBBEELS 


279 Elt=" nasasa 
JasR3 MEERE 

288 FOR A=8 TO 14: MUSIC"-GR" 

238 CURSOR A+1?,18-A: PRINT Eis 

308 CURSOR A+18;17-M: PRINT Es 

318 NEXT nA 

328 Kt="f4  CIOBHBBELSCH FEFENEBSBRCSCH 

EEFEBRERRCSEEEEBBELSEDEDDSBACSCSEDEDNBR 

BECSCS EDEDAEREBBLE 13” 


HERBE HEIEEIE 


338 Kis=" TEBSER daR KHEARH 
DEE NEE GEHER Neasse R 


348 FOR A=8 TO.13: MUSIC"-Ba" 
358 LURSOR Atl 1, 18=-A: PRINT Ki8 


368 LURSOR A+12,15-A: PRINT Ks 
378 NEXT A 
388 As=" EECIEDWEHASE EEEECSEDEDEBEABER 


C? ECCIDACFOBBBREEL? CHcäcäczarmsaaelztr 
SZEZOBEBEBBCZDA CzoA' 


298. Al#= DEIBEEIE NERBREE u 
BIEREIEIEIEN neaasse REBSBBE 
228 FOR-A=1 TO.15: MUSIC"DB" 


218 CURSOR 17,19-A: PRINT Als 

428. CURSOR 17, 18-A: PRINT As 

“30 NEXT A 

+48 NUSIC"-CB-D-E-F-6-A-BEDEFGAB+CHDF+EH+F 
+G+A+B" 

439 55$=" FSCBEBEBESWERSSSRESCIHETEIESFE 
CSSHRBRNBAELFERREBEFCBORAFECRCACHERESIERS 
BECICICHFECSWEELZCEWEHRBRAALZESCATECAESE 


- SWEEBBHAFECBLCBCHES" 


468 NNE="CICBcS COCSERBBISBELFCHES Ct 
SORHABBRBLHCIFEES KECSWRRAaBBEL CH FEESC 
SC5SUSBHEIBESC/ES FECSCSBESEHRRBCHER 8 
E35" 


#2 HOMECOMPUTER 


[ 
1 
i 
i 
[ 
U 
i 
i 
[ 
i 
i 
i 
[ 
i 
[ 
_ 
i 
i 
i 
i 
I 
i 
i 
l 
fi 
i 
i 
i 
I 
) 
l 
i 
i 
| 
i 
7 
1 
l 
ü 
ü 
1 
il 
[ 
[ 
il 
[ 
i 
i 
i 
_ 
i 
i 
i 
i 
I 
i 
I 
i 
) 
T 
i 
' 
ij 
' 
[i 
1 
i 
1 
[ 
i 
1 
L 
i 
[ 
i 
i 
i 
i 
[ 
i 
[ 
I 
i 
i 
i 
' 
i 
l 
I 
li 
W 
i 
i 
' 
1 
i 
Ui 
L 
L) 
i 
ü 
i 
i 
i 
[ 
L) 
i 
ü 
I 
i 
I 
ü 
! 
) 
i 





178 EES="COCBCSCECSBBEBRECH MBBBRCBEZE 
zZ WERSEEEDEISE BEREICH NESEBLBESCBESES" 


488 KKs="C4 CSEBEBBECH FScHaBpaaete E 


SEHSHACHLHFSCHUHRELCHFEEINERECH FEESTREBE 





CH FEESUERERBLS C3° 
#30 Aft=" FSCBESBEREEB FSESCIFEESGEBEBR 
BCZCHECCHDACSRERHBRRLZCECHLSCECHARSBREE 
ZEB A GICBISSERBACHEH ICH" 
BB GOTO. 6380 
18 EURSOR 2,8: FRINT [%,] 5# 
52B EURSOR 19,3: PRINT [X,] N# 
s=B LURSOR 17,3: PRIMT EX,] At 
48 CURSOR 25,2: PRINT CA, ] K# 
5s5B CURSOR 32,3: PRINT -CH,1 E# 
5658 CURSOR 2,8: PRINT [#,) 55% 
srB EURSOR 18,3: PRINT [X] NH 
saß CURSDR 17,3: PRINT [%,] AA 
538 CURSOR 25,2: PRINT [%,] KEE 
EA CURSOR 32,3: FRINT [4:1 EE$ 
EI K=INTCERHOL 1 )#61+1 
E28 RETURN 
338. FOR A=1 TO 28: GOSUB SI8: HEAT A 
4 CURSOR 16,28: PRINT "'Beechre ıbung Ja 
Heim" 
BSB GET Fe: 
1 65 
SER IF Fe="H" THEN 1158 
B7B IF Z&4>"U"THEN 658 
BB EONSoLE 11,194,3,33: 
REN Beschreibung 
5aB PRINMT"BEBei diesem Spie| mussen Sıc Y 
ar-B! 


IF Fe="" THEN GOSUE:S18:. GOT 


BB PRIHT"zuchen mös |ıchert viele Apfel wu 
dia" 

718 PRIHT'"Kirschen zu fressen, d" 

28 PRIHT'"Beruhren Sie den Seıelfealdrand 
„B" 

za PRINT"esıch szselbor oder ein Hindernie 
Zi: le 

#48 PRINT'"ver l|ieren Sıe eın Leben ?9" 
+52 FRINT TABl22]137" Taste drücken 298" 

+68 CONSOLE: MUSIC"+B" 


738 GET 28: IF PE="" THEN GOSUB Sin: GOT 
0 778 
>8B CONSOLE 11,19, 3533 


3A PRINT"BEıin Feitbalken lauft auch mit 
w" 

BEB FRINT’Er wırd kleıner sobald Sıe die 
BD" 

BiB PRINT"Sch lange mit den Curson-Tasten 
gt 

82B FRINT"bewesen, HIOR" 

a3 PRIHT TABL?BEI:" Taste drücken IR" 

4a CONSOLE? AUSIC”+B” 

330 GET 28: [IF 2£="" THEN GOSLB S19: G0T 
0 B5a 

BEA CONSOLE 11,14,3,323 

B72. PRINT"RFresson Sie eime Frucht, bevo 
+” 

BER PRINT"der Zeitbalken abgelaufen iet, 
u 

838 PRINT"beginmnt er von Vorne.ü" 

388 PRINT"Schaffen Ste es: nicht, gibt *sü 


918 FRINT"Strafpunkte 30" 


328 PRINT TABC28):"Taste drücken ?B® 

338 CONSOLE: -RUSICH-+B" 

“4a GET 2#: IF Z&="" THEH GSOSUB Sie: GOT 
7 948 

oa CONSOLE. 11, 14,3;,33 

S5B PRINT"B 82 -......: 188 Purnkıef” 
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372 PRINT*® B? 2.222. 208. Punkte” 
3aB FRINT" Ist der 2eitbalken obgelaufe 
"a" 

392 PRINT" Bımas: 180, Punkte Frign 
g" 


18029 PRINT TABL281:"Taste drücken 28" 
:uie FOKE Mö+rAätssd; 132 

ı828 POKE Mi+rFA+s3e,1?78 

Ie3e CONSOLE: MUsSic"+B" 

948 GET ?s&: IF Z&="" THEN GOSUB: 518: GO 
ı0 1048 

1858 CONSOLE 11,143; 233 

IBBe FRINT"AHach Spielende können Sie de 
nl 

1872 PRINT"Schwier aka ıtssrag dureh drüs 
kenE" 

IBBe PRINT"der Taste 1, 
Fb 

IBsa FRINT"Wollen: Sıe den Schwierıskeite 
-B" 

11889 FRINT’erad so belassen, dann drücke 
r 5" 

1118 FPRINT’SIe eine ondere Taste, Bd" 

1128 PRINT TABt2933" Taste: drucken" TB" 
1128 COSS0OLE+ NUSIC"+B" 

1148 GET Z#: IF ?i="" TAREHN GOSUB 518: 60 
TO 1148 

1154 CONSOLE 11,14,34,33 

ı16&6 PRINT"ERN Schwier sakei Ltsarad 
gm" 

117% 
ı1B8 
119% 
12788 


28 

I?712 GOSUB 518: GOTO 12B8 

(>>2 MUSIC"-0D=-E-F-E-D": CURSOR 20,22: 
INT"Taste drücken 7 
1239.GET Z#r IF Z$e" 
10 1238 
1240 IF 


2 oder 3 ünderrn. 


FRINT" 
PRINT" 
CONSOLE 2 MUSICH+B" 
GET T: IF [I=el)r(1=23+6T=3), THEN12 


#2 «Mm 
ar 


7 
THEN GOSUB Sie: GO 


1=1 THEN LA=8 
1258 IF T=2 THEN-LR=sb 
1288 1F Te3 THEN LA=4 
1278 CLS:+ 

FEH 7 Schwierisk. 
ı?80 
1238 
328 
318 
1320 
1338 
348 
1350 


FOR B=] TO 58 

#eINTERHOLIIFEHI} 

FOLOR +54 CURSOR 18,12 

SEINT L[%, 21; "SCHMWIERIGKEITSERAD "HT 
FOR A=1 TO28: NEXT A 

HEXT B 

HLISIC"ERDEFEFE" 

COLOR ,,8,8 | 
13668 PRINT" 636363 Punkte: & 
Punkte: "IUSING"ERHHRN GA 

1378 TEMPOTZ 

1328 DIn Atlas). Mot201,Acils FE} 


MO. 


399 FOR A=1 TO 8: AcAa3=533247 NET A 
400 PlL=t: 

Rei Spiel | 
1418 AD=534893: I=18: ErB: H{9J=157: HOT 


=158: FLiJe1?78: FCOj=192 


142 GOSUB 1948: 
FEH Rahmen 
143A ON: PL GOSUB 2540, 2828, 2708: 
BEM Hindernisse 
IF PL=4 THEN GOSUB 2728: -GOTD 1438 
POKE AD, 287: 


1442 
1450 

REM Schlansenkopf 
1388 GOSUB 2328: 


REM Fruechte 


oo on m En un m sm. sn ei ee oe HE: Ha TE HE FT ME TAT FE me An: m Mi im: im AG. HE nn on nn me Fe m 


1470 GET At: [IF As="" THEN 1478 
1482 POKE AD,&: G0T0 1988 
1430 GET PA 
1508 IF At="g" THEN 1588 
IS1@ IF Aterga" THEM 1868 
1522 IF At="o" THEN 1748 
1538. IF A&="B" THEN 1828, 
i548 GOSUB 2398: 

REM Fruechte CLR 
iss8 ON A GOTO 1588, 1688, 1748, 1828, 1410 
1568 GOTO 1498 
1578 REH “uinnnnnnn ERBEN nn 
1588 AlsAd-4a 
1598: IF PEEKLADI<>B. GOSUB 2118 
aaa IF A=2 THEN POKE AD;28?: POKE AD+sB 
‚18?: GOTO 1638 
ı1a1l2@ IF A=4 THEN FOKE AD,28?: FOKE AD+4B 
‚184: GOTO 1638 
16728 FOKE AD, 287: 
‚238 
18538 A=l: 1=8 
1642 GOTO- 1838 
IE5B@ REN “uunnnann BEEBBEBBE -onnnnnann 
1668 AdsAadHl 
1678 IF PEEKCADI<>B GOSUB 2118 
1688 IF A=3.-THEN POKE AD,207: POKE AD-1, 
184: G0TO 1?18 
18938 IF A=1 THEN POKE AO,297: FOKE AD-1, 
156: GOTO 1718 
I788@ POKE AD,207: IF I=8 THEN FOKE AD-1, 
227 
I718: A=?: 1:9 
1728 GOTO 1898 
1728 REM --munnnnnn IDRDORERE Hmmm 


IF i=2 THEN POKEAD+40 


1798. ADsAb+sß 

1758 IF PEEKLADI<HB SOSLB. 2118 

I?788 IF A=2 THEN POKE AD, 287: POKE AD-40 
‚1593: . 6070 1738 

1778. IF A=4 THEN FOKE A0D,287: FOKE AD-4e 
156: :G0OTO 1798 
ıI?7BB FOKE AD,2B?: 
238 

1798 A=3: 1=8 
1388 GOTO 1830 
IBIB REM +nunnnanun BEHBBBABE ununmnnnn 


Pa 


IF I=8 THEN FOKE. AD-48 


1828 AD=AD-] 

I838 IF PEEKCADICB GOSUB 2118 

ıB4B IF A=3 THEHN POKE Ad.28?7: POKE AD+l, 
187: GOTO 1878 

ı858 IF Ari THEN POKE AD,28?7: POKE Ab#+l, 
153: -GOTO 1878 

ıIE60 POKE AD, 797: POKE Aldrl, 22? 

1878 A=4 


1888 REN mmmnnnnnan SCHWANE em 
1898 POKE AcLAI:B 

1388 FOR BeLA TO 2 STEP-1: 
MEKT 

1818 ACıl=AD 

1928 GOTO 1568 

1939 REH =munnanunnnen RAHMEN Senmnmennnn 
1338 IF PL>i THEN RETURN 

1959 PRINT"B" 

19558 FOR As=p TO 33: 
POKE MNO+A,248 

1978 NEXT A 

1388 PRINT [2,1] "CE" TABC3BI "CH" 
1998 CURSOR 0,24 

2888 PRINT [2,1 "CH" TABC36) "CHB' 


ACBISACH-1): 


IF FEERCHO+AI=2 THEN 


HOmMECoMPOTER #3 


a m m: mE m: m: Hmmm ER: mt Min sm si mie «a «im HE: EEE: TEE SEN A TEE" <BR" mim mm Sm me we Mh (ia HH: EEE. SAG TOM N TG EBEN ME Em mE He ei sie: in" ce HG HG TEE HE TE CET AN SHE ME DET" FERNT  MEN" ME MA: MM: ©-ie Mn = „ Ha sin GG -ERE. GEGEN: GEN TEEN EEE SEEN m me me pe ee A Eh He EEE FE) a Cam Tan 












m em EEE TEMEET MEE TEE EB MER) EEE  SEMBEN mEMEe MEN Em „ME SEM SuM MET TEEN TIME“ MEN TIME. "EN MEET "ME HE TE EM: MEN MEN ME ME TER) MN ME ME MM: DE CME ME: MG TIME: im GB ME MEN MEN MEN ME: MEN TE. ME Mn BE: MG TEE. HE HMM HE: TEN A ME ME" ME SE: MAG. MEN HM: MG. TEE Gi: ME CE GE: ME. MM: ME SEM: MEN: ME MG TEE: MEN MEN TEE "TEEN MEET m MER) ME HEN TEEN MEN OHM MEN: BEN ME" MENT -MEEM WET „ HEEN MEN“ ME“ MEN "IE" MEN“ IBM SE“ „ ME SEEEn ME“ ‘Mm En WEM MB mm =: 
Li 


2818 FOR fiel TO 37:PRINT [2,3 TABCA) "DB 
"3: NEXT A: PRINT 

2a2a FOR A=1 TO 22: PRINT L2,) "DS" TABt 
38) "Ci": NEXT 


2230. FOR A=i TO 237:PRINT [2,I TAeiA) "Ca 
"55 HEXT A 

2248 PRINT”B" 

zB52 FOR A=48 TO: 1828 .STER 40: POKE AdrA 


-1,2948° HEXT A 
PRBR EURSOR 37,8 
“BB PRINT [2,33 ESCBEBBDSF BEI SNEISWEIS 
BEDSBEDSHAUSBENSERBEFEEB”" 
2888 GOSUB 2318: 
REN Zeıtbalken 

2838 RETURN 
ZIBB: REM +-++=----- PUNKTE SAMMELN ++-+rnan 
2118 IF PEEKLADI=15? THEN PU=PU+tOB: PFOK 
E Ab,8: POKE Alb#FA, S6: GOTO Free 
2132 GOSLE: 2988: 

REN Spial verlö, 
REN emule LE Senne ne een nenn nee 
MUSICE"RBBAGFEDE-B-A-G-F-E-D-C" 
2182. FOR 1=1 TO-?2 8=1INTERNDOCIIE?)] 
2178 FOR Fat TOD 1.5TEF=-i17 POKE ACcHı#+FA,] 
BriGZ#: NEXT 2:3 NEXT I 
2188 FOR FB TO 1-STEP-1: 
6 
21989: POKE ACEI:B: AC2IeNnD: 
zFeB AD=53488: I=sIB: Asp: 
R=FR+i: IF. FR=3 THEN 27538 


2148 
2138 


FORKE AC2J+FA,9 


NEXT 2 


POKE AD, 287: F 


2218 GOSUB 2918: 

REN Zeitbalken 
2220 6070 1478: 

REN Seielanfang 
2Lal REM mumhanin Punktarzeige “ommannan 


224B NUSIC"+BR" 

2258 PRINT"B":TABEI# I USINGUHRRHH "GPU: 1 
F-PUtBTHEN: 2948: FEN Spiel verlos, 
2262: IF NPF<PUNTREN:MAP=PÜUF PRINT"I"STABCZ 
3) 4USING" HEHE; AP 


27?B E=E-1: 603,8 2918: 

REN Feitbalken 
ZZBR RETURN 
2298 REN marnann Hindernitze -annanaan 
2388 AT=INTERHNOLTI&BPBI+B8: H=eINTCRNDOCHI 
#2] 
23:8 IF PEEKLNO+FKTICHEB THEN 7308 
2328- NOLEI=MOHrET 
2338 FOKE NDCETL;HCHI: FOKE NOLCEIHFA,FCHI 
2342 EsE+1: IF Es22 THEN Es13: RETURN 
2352:G0T0 2388 
23520 REM 


2370 REM =onsnnnen Schlange CLR'ARrRnnsan 
2380 REN 
2398 IF. Et+-1 THEN 2448 
24BB AUSIC"H+CFHFH+OH" 
2418,FOR Zei TO.8: POKE Al2)I,B: AltI=e53?2 
“?: NEXT 
2428 PL=PL+1: A=5: RETURN 5 
2430 REM +++nnmmmen Boitbalken zranunanan 
2449 T=T+1: IF T=3 THEN T=ß: GOTO 2460 
2458 -RETURN 
2258 IF PEERCNÖ+43B+ZE)=58 THEN POKE MO+ 
a38+7B,248: FB=PArde: PETURN - 
2478 IF PEEKCNO+438+281=6? THEN POKE NM0+ 
438+2B8,58: RETURN 
2499 IF PEEKCHO+438+28)=122 THER POKE Fo 
+438r28, 248: ?9=ar PU=PU-182 
2438 MUSIC"-FORI-FORI-FERI-FORI-FORS-FOR 
I=-FER1-FERI-FARI-FR" 
zebd Es£+l: GOSUBN27SB: 

KEN Punktanze ige 


#8 HOMECOMPUTER 


eo. 6 3 8 rer rer rer rer rer re re u ee 





2519 GOSUB 2318: 
REM Zejitpalken 
2520 RETURN 
2538 REM “rn HINDERNISSE “runamnen 
540 HIs$="58993131065931913197286865843131391 
3191918925089191919198889131.” 
7550 CERSOR 17,18: PRINTLI,SJI HI® 
2568 CURSOR 6,4: PRINT [5,8] Hd 
25789 CURSOR 31,4: FRINT [6,8] Hot 
2588 CURSOR 6,13: PRINT (86:2) Hat 
2ase CURSOR 31,19: PRINT [5,21 Hat 
Z5P2 RETURN 
2618 REM 
2628. H2&="89 1908913191 89891" 








2530 H3t-"’9e NEE 033333 BESEHS 
nkapaı 

2542 CURSOR 17,18: PRINT [6:1 H3$ 

2658 CURSOR 6,4: PRINT [1,51 H2& 

26852 EURSOR 31,4: PRIHT [i,51] HZ# 

25?8@ CURSOR 6,19: PRINT [1,5] H2s 

BR EURSOR 21,139 PRINT [1,5] 2% 

2638 RETURH 

Z7RR Has" GsoSUB 2548 

212. RETURN 

Fr2R:Ple] 

-739 Hıs=!E DSH SEE 

2748 RETURN 

2759 REN “ru un Game Sep nen 

>?589 CURSOR 15:12: PRINT [?,1"GAME DUER" 

2778 CURSOR 14,189: FRINT"LICSCH4CHE4 CH 

Acaosca" 


-?7BR FOR A=el TO3 

27398 LÜRSOR 13, 1844: PRINT"CZBBSBBBEASER 
es: 

za00 NEXT A 


2818 CURSOR 14,14: 
3630303" 

2820 Ag=" 

ER NEBERBEBERSE 
2839 CURSOR 14,11: 
2848 PRINT [8,%] At 
2859 GET Bt: IF B$="" THEN 2838 
2868 IF B#="]" THEN Y=} 


PRINT" s3cIe seo Ie 





BEBEBSEBBEE GARE-. OU 


*=INTCERNDOLIIEB) 


2878 
2EER 
ze30 
2988 
z31e TURSOR 38,18: PRINT [35] "RUacsact, 
SNECBIACBAANB": FB-0 

2420 .RETURM 

2536 REI 
2348, Pl=p: E=sE=-|1 

2358 PRINT"R" ;TABEISIGUSING"RHRRR" GPU 
23658 GDTD. 2138: 


IF B$="2r THEN Y=? 
iF.Been"3" THEN T=3 
Pl=B: FR=B: GOTD t248 


REf „„unnnan Faıtbalker “mise ne 


1 
Br Dei ie ni en FELSEN an an an a a ar a a a 


REN Spiel verlo, 
23789 Lit OPE Heennene 
23H FOR: B=1: ID 175 
23329 PORBE MoO+Hi+FR, 202: 
HO+18,24B 
3288 MUSIC" HAB" 
3a18 FOKE NO+i+FR, 248: 
H0+18,32 
3BRB -NUSIC"-+B8" 
3238. HEAT. B 
sa48. FOKE Md+fArli+FR,S6 
3959: RETURM 


REN -unmnnn Spiel 


IF PUrd THEN POKE 


IF PU=s8 THEN FÜkE 
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Ein Spaß für alle 


Rätselfreunde 


Das Programm 
SUCHSEL wurde auf 
einem APPLE II ge- 
schrieben und getestet. 
Da es aber ausschließ- 
lich in Basic geschrie- 
ben wurde, kann man 
es aber auch auf ande- 
ren Systemen zum 
Laufen bringen. 


In SUCHSEL hat der Rätselrater dıe 
Aufgabe, in einem Buchstabenchaos 
Wörter zu finden, die entweder hori- 
zontal. vertikal, diagonal oder quer 
durchs Gemüsebeet verteilt sind. 
SUCHSEL ermöglicht nun den Heim- 
computerfäns selbst solche Rätsel zu 
erstellen. Dazu muß natürlich zunächst 
das Programm eingegeben werden. 
Hierbei ist zu beachten: Wenn das Pro- 
gramm nur an einem APPLE bewrieben 
werden soll, an den mit Sicherheit eın 
Drucker angeschlossen ist, können die 
Zeilen 1010 und 1070 weggelassen wer- 
den. Andernfalls tippen Ste bitte dıe 
vorliegende Version ab und fügen noch 
die Zeile ‚95 GOSUB 1010" dazu. Besit- 


Unser Suchrätsel 






Folgende Wörter sind zu finden: 
(horizontal, vertikal oder diagonal) 





zen Sie kein Diskettenlaufwerk, sollte 
man statt des Befehls PR= 6" jeweils 
die Folge "HOME :END" eintippen. 
Nach fehlerfreier Eingabe speichere 
man zunächst das Programm und tippe 
Run. Es folgt entweder die Frage ob ein 
Drucker vorhanden ist, oder die Auf- 
forderung, zwischen Laden eines Rät- 
sels von Disk oder der Direkteingabe. 
Da beim erstenmal noch kein Rätsel 
gespeichert ist, wählt man Direkteinga- 
be. Hierbei gibt man die Anzahl der 
Würter ein, die in dem Feld aus 50 mal 
30 (2500) Buchstaben verteilt werden 
sollen. Jetzt können die Wörler einge- 
geben werden. Maximallänge hierbei ist 
vierzig Zeichen. Aber es gibt ja auch 
kaum Wörter die diese Anzahl über- 
steigen, außer vielleicht 


‚Donaundampischiflahrtskapitäns- 
wiwenrenteneinkommenssteuer- 
mMieckzahlungsantragsformular" 


oder sowas Ähnliches. Weiterhin dürfen 
bei der Eingabe nur Großbuchstaben 
verwandt werden. Auch Leerstellen am 
Anfang oder Ende eines Wortes erwei- 
sen sich als äußerst ungünstig, denn der 
Computer nimmt an, sie gehören Zum 
Wort. Istim Rätselfeld jedes Wort klein 
geschrieben oder von Leerstellen einge- 
rahmi. ist es allzu leicht auffindbar. 

Die Frage des Computers, die irgend- 









Suchsel 


für Apple II 


wann erscheint, ob die Wörter ausge- 
druckt werden sollen oder nicht, hat 
folgenden tieferen Sinn: Werden die 
Würter mit ausgedruckt,-so weıß man. 
wonach man suchen muß. Erfolgi kein 
Ausdruck, erschwert dies natürlich das 
Raten. Während der Computer die 
Wörter verteilt, erscheint hin und wie- 
der ein Text auf dem Bildschirm, der 
Sie um etwas Geduld bitter, Sıe können 
diese Zeit nutzen und überprüfen, ob 
der Drucker eingeschaltet (ON LINE) 
ist, Nach einiger Zeit des Wartens wird 
dann das Rätsel ausgedruckt. Anschlie- 
ßend folgt die Frage, ob das SUCHSEL 
auf Disk gespeichert werden soll, sofern 
man es nicht ohnehin von dort geladen 
hatte, In letzterem Fall unıerbleibt die- 
se Frage. Der Filename beim Laden 
und Speichern kann beliebig sein. Der 
APPLE verpaßt ihm automatisch das 
Präfix „RAETSEL*. Zum Schluß folgt 
noch die Auswahl #wischen I (Index = 
Inhaltsverzeichnis), T (Terminate = 
Schluß) und R (Restart = Nochmal): 
Der Restarı stößt dabei einfach auf cı- 
nen RUN-Befehl, der Index führt einen 
warm reboot (PR = 6} durch und Ter- 
minate beseitigt das ganze Programm 
mit NEW (daher auch die Aufforde- 
rung, es vorher zu speichern). 

Wir wünschen Ihnen ein fehlerfreies 
abtippen und viel Glück beim Knacken 
des. Rätsels, 
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> ' 
e 13 REM HHHHHH ® „ | 
ı 2 REM =* SUCHRAETSEL # | 
® . 32 REM HH & ' 
ı 48 REM #*# Alwin Ertl * | 
| 54 REM =# Mai 1984 E | 
® ı öi REM Hannah f ® | 
’@ HOME : IWERSE : PRINT "SUCHRÄAETSELGENERATOR": NORMAL I | 
& n Ba FL = E: DImM FiiW,59) e 
ı 998 Ds = CHR$ (4) ern 
ı 328 PRINT : PRINT "Von Disk laden oder Direkteingabe": INPUT "L oder D? “ 
® LD$ ı ® 
| ı 118 IFLD$S< »>"L" AND LD&$< > "D" THEN 198 
® 1 128 IF LD$ = "L" THEN 798 [ 3 j 
Ä 138# PRINT : FRINT : INPUT "Wieviele kKoerter”?"jAZ I 
ı 1429 DIM WEIAZI i f 
@, 152 FOR1=1[T0Rz ı® 
ı 142 PRINT "Wort "515":" i 
4178 INPUT ""SW£{iI): IF LEN tWkilI)) > 4 THEN FLASH =: PRINT "WORT ZU LAN j 
I ı 6": NORMAL : FRINT "Neueingabe:": GOTO 178 ı ® 
I 488 NEXT I 
$ ı 412989 PRINT : PRINT : INPUT "Woerter mit ausdrucken? ":3AD#$ ® 
ı 200 ADS = LEFT$ (ADs,1): IF ADS < > "I" AND AD& < > "N" THEN ir | 
ı zig PRINT : PRINT = PRINT : PRINT SPCi 15);: INVERSE : PRINT "BITTE WART 
® ı EN": NORMAL  ® 
ı z==22 FOR1I=1 TO 52: FOR J= 1 T0 S@:Ft1,J} = 32: NEXT J,l 
'® ı 2529 PRINT SPC( 1535 "NOCH’N MOMENT" '®@ 
"ı 249 FORI=1 T0 AZ ns 
ı 250 X = INT (59 = RND (1) + D:Y= INT (59 *# RAD (1! + D:IC=9 0 
®@ , 262 ZU= RAND di) ı® 
ı 2798 IF ZU< .25 THEN XP = 1:YP = 2: GOTO 318 
ı 280 IF ZU< .5 THEN XP = 8iYP = 1: 6010 318 
® I 298 IF ZU< .75 THEN XP = 1:YP = 1: GOTO 318 u 
ı sag XP = 1:EYF = -1 ' 
oe; 19x =xyl=Y ı® 
3208 IF Xi > 58 OR X1 < 80R Yi > 58 OR Yi < 8 THEN 258 > 
ı SSsäc=0C +1: IF Fiki,Yi} < > ASC ( MIDS (WStI),C,13) AND Fik1,Y1) < > 
®@ ı 32 THEN 259  @ 
ı 349 Xi = X1l + XP:Yi = Yıi + YP 
e| >52 IF C< LEN (WeE(I)) THEN 328 '® 
ı 38d FiX,Y) = ASE ( LEFT$ (W$(T),13) 
_ 3728 FOR J = 2 TO LEN (Wst1)) \ 
® ı ZBDOX=X*+XPıY=Y + YPIF(X,Y) = ASC t MID* (WEIDD,J,10) : ® 
! Z9@ NEXT J,1 
e| a8 PRINT SPC 1@);5: FLASH : PRINT "GLEICH GEHT’S LOS": NORMAL '@ 
ı 419 FORI=1 TOSe: FOR J=4 TO 58 
| ı 4209 IF Fil,J} = 32 THEN Ft(il,J} = INT (2& # RND (1) + 55) ' 
®: #32 NEXT J,I ı® 
' 44 PRINT SPC 1@);: INVERSE : PRINT "JETZT KOMMT’S !:!": NORMAL 
ı 458 PR# 1: PRINT CHR$& (P)3:"9@N" 
® ı 460 PRINT 'Suchraet se 1": PRINT "=ememmmemsessessosoeen; PRINT ı@® 
| ı 478 PRINT "vom Apple II e und "32 PRINT "______ 2. __"=2 PRINT SPCi ı 
® . 20)5" (Name des Autors)" '® 
| ı 488 PRINT : PRINT 
| ı 498 FOR I = 1 TO 502: FOR J = 1 T0 59 ' 
|®ı Sea PRINT CHR& (FiL,DV5 ı ® 
| ı 5i@ NEXT J: PRINT : NEXT I 
@ | >22 PRINT : PRINT "Suchraetsel" '® 
“ı 5538 IF ADs = "N" THEN 598 mg 
1 »40 FRINT 5 PRINT =: FRINT "Folgende Woerter sind zu finden": PRINT "(hori 
® ı zontal, vertikal oder diagonal}:2": PRINT ı ® 
ı 558 PCc=9 
e! 569 FOR I=1 TO AZ '@ 
578 PC = PC + LEN {W#{I)) + 4:2 IF PC > 58 THEN PC = 9: PRINT 
ı See FRINT W#(I)5" "== NEXT I i 
®@ ı 5798 PRINT CHR$ (12) ı 
I bog PR# 2: IF FL THEN 968 
nm !ı #18 HOHE | 
© '. &209 PRINT : PRINT "Soll das Raetsel auf Disk": INPUT "gespeichert werden? ® 
ı EP 
@ , #38 SP# = LEFT# (SP#,1): IF SP$< > "3" AND SPS < > "N" THEN 528 ® 
1 dad IF SP$ = "N" THEN Far | 
ı 658 PRINT : PRINT "Unter welchem Filenamen?": INPUT "RAETSEL.";F# | 
® : 260 F# = "RAETSEL." + Fs 2 
] i | 
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578 
= 3] 
[2] 
eg 
18 
’22 
738 
748 
758 
FR 
778 
+88 
FE 


gie 
928 
330 
Ban 
935g 
[21-75] 
B’E 
21275] 
2572) 
ag 
718 
FR 
938 


FB 
378 
i=le] 
978 
1998 
1818 
1820 
1938 


1948 
1958 
10489 


1078 


PRINT : INPUT "Drive Nr. ";D 

IFD< 1 0RD > 2 THEN 478 

PRINT : PRINT "Wird gespeichert." 
PRINT D$;"OPEN ";5F$ + ",D"; STR# iD) 
PRINT D$3 "WRITE ";F$ 

PRINT AZ 

FOR I =1 TO 50: FR I=17T0 5 
PRINT FiJ,I} 

NEXT J,I | 
FOR I = 1 TO AZ: PRINT Weil): NEXT I 
PRINT Ds} "CLOSE ":F$ 

GOTO F&g 

PRINT : PRINT : PRINT "Welcher Filename?": INPUT "RAETSEL."IF# 


Bag Ft = "RAETSEL." + F# 


PRINT : INPUT "Von Drive Nr. "5D 

IFD< 11 0O0RD > 2 THEN Bl 

PRINT : PRINT "Wird geladen." 

PRINT D#; "OPEN "3F$;",D"5 STR# ID) 

PRINT D#3 "READ ";F# 

INPUT AZ 

DIM WELAZ) 

FOR I = 1 T0 3502: FRJ=170% 

INPUT F(I,„J} 

NEXT J,„I 

FOR I = 1 TO AZ: INPUT W$tl>: NEXT I 

PRINT D$;"CLOSE "5F# Er 
PRINT : PRINT : INPUT "Woerter mit ausdrucken? ":ADS$ 


748 AD* = LEFT$ tAD#,1):.IF AD < > "3" AND AD$ << > "N" THEN FR 
gsa FL = 1: GOTO 459 


HOME : PRINT "Index": FRINT "Terminate": FRINT "Rrestart” 
GET As: IF AS < > "IT" AND AF< > "T" AND A < > "R" THEN 762 
IF As = "I" THEN PFR# 5 
IF.-A$ = "T" THEN HOME = NEW 
ELEAR : RUM 
PRINT : PRINT "Ist ein Drucker angeschlossen?": INPUT ""3DA# 
DAS = LEFTS (DA$,1): IF DAS < > "I" AND DAR « > MM THEN 1818 Re: 
IF DA = "M" THEN PRINT ; PRINT "Dann kannst Du dieses Frogramm nic 
ht": PRINT "benutzen. Eine Taste bringt Dich zum”: PRINT "Inhaltsverz 
eichnis.": GET A#: FR# & a 
PRINT : PRINT "Ist der Drucker eingeschaltet?": INPUT ""5DA# 
Das = LEFT& tDäs,i1i): IF Das < > "J" AND DAF < > "N" THEN 1248 
IF DA = "N" THEN PRINT : PRINT "Dann schalte ihn gefaelligst ein : 
"= PRINT "Anschliessend Taste druecken.": GET A$ 
RETURN 
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ASC II- Dumper 


_ - 








Wir haben hier ein Utility-Programm für den 
Apple II und seine kompatiblen Nachbauten. 


Es dient zur Ausgabe von Speicheraus- wird mit CTRL-Y die Dump-Routine die Ausgabe unterbrochen, bis die I ü- 
zügen im ASCIH-Format, wenn man aufgerufen. Nach dem Aufrufmuß man ste erneut gedrückt wird. Bei Eingabe 
Texte von unbekannten Maschinen- die Anfangsadresse eingeben, von der von ASCape wird die Routine neu ge- 
Routinen sucht. Nach dem Start er-- an der ASCH-Dump ausgegeben wer- startet und man kann eine neue Slart- 
scheint der Programmname und der den soll, Nun erscheinen die Inhalte der. adresse eingeben. Drückt man Return, 
Hinweis, daß man mit Hilfe des &- Speicherstellen und die Adresse des er- wird der Programmablauf beendeı. Mit 


Befehls von Basic aus den ASCIH-Dum- sten Zeichens. ost 
per einsetzen kann. Vom Monitor aus Durch drücken der Space-Taste wird möglıch. 


r 
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& oder CTRL-Y ist ein erneuter Aufruf 
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Eingabe des Programms: 
CALL-I151 (RETURN) 
8000: 20:99 80 20 C6 80... 
Abspeichern auf Disketten: 


BSAVE ASCIH-Dumper, A$8000, L516C 


Ar 


x 
k 
% 
+ 
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Hello 


für Apple II 





@rRper* Ein Supermenü 
für jede 
Diskette 


Allen APPLE-Besitzern sind die 
umständlichen und langen DOS- 
Befehle sicher schon immer ein 
Dorn im Auge gewesen. Hier veröf- 
fentlichen wir ein Programm, wel- 
ches die wesentlichen DOS-Befehle 
und gleichzeitig den Catalog der zu 
bearbeitenden DISK zur Manipu- 


% 
x 
x 
% 
x 
* 


x 


* 





lierung anbietet. 


Nach dem Start mit RUN HELLO wird 
der CATALOG der jeweiligen Diskette 
auf dem Bildschirm angezeigt und die 
Programme {bis zu 22) mit Buchstaben 
gekennzeichnet, Ein Druck aufdie ent- 
sprechende Taste und das gewählte 
Programm kann mit RUN, EXEC oder 
BRUMN - jenach Typ wird der passende 
Beiehl vom Programm gewählt — ge- 


startet werden. 


Mit den Tasten 1-6 können die Funk- 
tonen LOAD, LÖCK, UNLOCK, RE- 
NAME, DELETE und ein SELFSAYE 
des Programms auf die eingelegte Dis- 
ketie aufgerufen werden. Das HELLO- 
Programm wird dann nach Abfrage des 
Programms, mit dem diese Operation 
durchgeführt werden soll (entspr. Buch- 
stabe), und nach Abfrage des neuen Na- 
mens (bei Rename) den nun mit weni- 
gen Tastendrucken zusammengestell- 
ten DOS-Befehl ausgeben. 

Das Programm überprüft automatisch 
die Befehle aufihre Logik, #. B. LOAD 
bei Texten oder der Versuch des RE- 
MAME bei einem noch geschützten 
Programm. Die Fehler werden aku- 
stisch und optisch gemeldet, bevor es 
zum DOS-ERRÖR kommt. 

Während des Programmablaufs werden 
dıc zur Verfügung stehenden DOS-Be- 
fehle sowie LOMEN, HIMEM und 
FREESPACE und natürlich die Bele- 


| gung der Diskette (FREE/USED) in 


zwei Laufschrifien ın Zeile I und 24 


angezeigl. 


FEBRUAR 1985 





TSYNTAX ERROR 
ULIST 


i 
[| 
[| 
i 
i 
| 1 D6 = CHRS (M):CAk = D$ + "CATALOG":LS$ = "TASTE DRUECKEN ODER 1=LOAD / 
r 2=eL0CK / 3Z=UNLOCK / 4=RENAME / 5=DELETE # 6=BELFSAVE “.....":L5$ = LS 
h $ + LEFTS (LS#,49) & 
I 2 H0$ = "HELLO VERSION 2.2 (C) 1984 BY KLAUS SCHMIDT >SYSTEMPARAHETER : 
-C$(1) = "PROGRAMMSTART":C$(2) = "LOMEM"SCH(S) = "HIMEM"ICH(4) = "FRE 
ESPACE":DSI(Q) = "RUN":DEI1) = "LOAD"IDE(ZI = "LOCK":DECH = "UNLOCK": 
D£(4) = "RENAHME" e | 
ER#(1) = "DUMMES ZEUG!! TEXTE LADEN! !":ER$(2)I = "IS’ MAN SCHON UNLOCKED" 
1 

1 


LA 


-ER$ISI = "DOPPELTLOCKEN GEHT NICH" !!"zER$(4) = "VORHER AUFSCHLIESSE 
N TImsERKiS) = " NUR APPLESOFT ZUR ZEIT !!"Z3ER#i(&} = "NICH’ MIT MIR: 
KONZENTRIEREN SIE SICH!" 


= 4.0615) = "DELETE":DFIS} = "SAVE": GOTD 7 
scCi = INT ttv ? B:C2 = [LV - Ci # BiP= 1924 + 178 = C2 + 48 = Ci + CHiP | 
a= PEEK (P} - 128:Pl = FEERK {iP + 1) - 1287 RETURN 
& WERT = PEEK tADI + PEEK (AD + 1) # 254: RETURN | 
= 7 WTAB 24: HTAB 1: PRINT SPCt 39;: VTAB 24:2 HTAB 1:2 RETURN 
8 'FORX = 8 T0 &: CALL - 178: NEXT : RETURN 
9 TEXT : HOME : PRINT CAs:CP = PEEK (37):AD = 185: GOSUB s:WE(Il) = WERT: 


"AD = 195: GOSUB s:WE(2} = WERT::AD = 115: GOSUB &:WE(S) = WERTIWE(A) = 
WE(3) — WEIL) | 
18 FOR X =1 TO 4:H0$ ="HOS + " " + OH) + "=" + STAR (WEIN) + " ": NEXT 
BU = 4 
i1 FOR CV = 8 TO CP - 1:CH = 4: GOSUB 5: IF P@ = 32 THEN B0T0 14 
12: VTAB {CV + 11:5K$ = "":BU = BU + 1: IF BU =1 THEN CA = Lv 
i3 FOR CH = 35 TO 5: GOSUB 5:5K$ = Sk# + CHR# (P@)z NEXT CH: POKE P - 2,6 
2: POKE P - 1,Bll: POKE P,&@:5K = VAL (SK#):UD = UD + SK: HTAB 35: PRINT 
ia (":5K#$35 | Br 
{4 NEXT | 
15 HO% = HO$ + "DISK: FREE=" + STR$ (568 - UD) + ", USED=" + STR# (UD) + 
Hunt + LEFTF (HO6,40) 


L) 
ä 
i 
ü 
ii 
i 
ü 
1) 
' 
) 
i 
) 
i 
L 
i 
[) 
i 
ü 
ü 
ä 
1 
i 
i 
1 
i 
ı 
j 
ü 
1 
) 
i 
L) 
[) 
ü 
i 
L) 
[ 
i 
[) 
[) 
ü 
[) 
i 
I) 
1 
1 
ü 
i 
i 
) 
i 
) 
i 
= M + i: IFM = LEN {iHös) — 42 THENM = 1 " 
=N +1: IFN= LEN (LS$} - 42 THENN = 1 
iB VTAB 1: HTAB 1: PRINT MID* (HO#,M,48): VTAB 24: PRINT MID# (LS#,N,57 
Is:K = FEEE { - 15384): IF EK > 128 THEN 28 
OR &k = i 
l) 

i 

1 

i 

) 

i 

) 
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i 

i 

L) 
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L) 
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l 

j 

7 

ü 

ü 

ä 

1} 

I 

i 

[) 

ii 

i 

[) 

[1 

I 

i 

j 

1 

| 

i 

[| 

i 

i 

a 

i 

[1 

i 

i 

I 

1] 

| 

i 

i 

g TO 5@: NEXT : GOTO 16 

E - 16368,8:K = K - 128: IFK > 64 THENK = K - 64:D = 8: G0T0 24 
| 21 IFK< 49 0ORK > 54 THENER = &: 6010 31 
i 22 IF K= 54 THEND = 5:iPR$ = "HELLO": 60OTO 49 
! 23 60SUB 7: HTAB 1:D°= K - 48: VTAB 24: FRINT "t"5D#(D)5") — WELCHES PROG 
RAMM "3: GET KSIK = ASC ik — 54 
ı 4 CH = 8:CV = CA + K - 1: GOSUB 5:LF = PeE:TP = Pi 
' 25 IF TP=84 ANDD=1 THENER=1 

i 

| 27 IFK > BU THENE 
ı 28 IFLF = 42 AND I 
i 1 
i 

[| 

1 

h 

i 

j 

j 

ij 

1} 

i 

i 

| 

i 

i 

i 

N} 

[' 

[| 

1 

i 

i 

j 

ü 

I 

1] 

i 

I 

i 

[' 

i 

| 

i 

i 

i 

i 

i 


b=1 
4 IFLF = 32 AND D=F3THENER=2 
E 
D - 
42 AND ‘D = 4 OR =: 55) 


2 - THEN ER = 3 
THEM ER = 4 


| = 73 AND D= 8 THENER=5 

31 IFER<£ >6 THEN EBOSUB 7: PRINT ER*${ER)}: GOSUB 8: FOR X = 2 TO 590: 
NEXT :ER = @: G0T0O 16 

32 IF TP = 84 THEN D+i@) = "EXEC* 

33 IF TP = 66 THEN D#(@) = "BRUN 

34 FOR CH = 7 T0 33: 60SUB 5: IF P@ = 32 AND Pi = 32 THEN CH = 33: G0TO 3 


355 FR# = FR$ + CHRF (FB) 


=7 GOSuUB 7: FRINT D${DI35" "SFPR#$5 | | 
=8 IFD= 4 THEN FRINT " „ "iz INPUT NNS:PR$ = PR# + "," + NN#: GOSUB 7 
= IF D= 5 THEN GOSUB B 

34  GOSUEB 7: FRINT D#iD);3" ";Phs3 | A | 

41 PRINT " 0.K.?7"3: GET JN#s: IF JN$ < „47% THEN PR$ = "":D6(8) = "RUN": 

GOTO is 
42 PRINT : PRINT Ds5D#iD); PR#$: RUN i 
43 END 2 
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Cosmische Arche 


für Atari 





Geschrieben auf Atari 800 XL 
Ein Spiel voll Dramatik und Action 


Von Ihrer Schnelliekeit hängt das Leben der Bewohner des Planeten Phaeton ab. 
Als Kommandant des letzten intakten Raumschiffes müssen Sie sich den Weg 
durch umherfliegende Asteroiden bahnen, um die Überlebenden des Planeten an 
Bord Ihrer Fähre zu nehmen. Ihre Energievorräte sınd jedoch beerenzi, so daß Sie 
mit Ihnen sorgsam umgehen müssen. 


Das Spiel selbst besteht aus 2 Teilen: 


Asteroids 

Ihre Arche sieht in der Mitte des Bildschirms und Sie können in die Richtung 
schießen, in die Sie den Steuerknüppel bewegen, Die Asteroiden kommen immer 
nur aus einer von 4 Richtungen. — Je schneller Sie reagieren, desto mehr Punkte be- 
kommen Sie, 


Human Rescue 

Sie versuchen mit Hilfe eines Saugstrahls die Menschen an Bord Ihrer Fähre zu 
nehmen, Je höher Sie dabei mit Ihrer Fähre stehen, desto mehr Punkte bekommen 
Sıe, Vorsicht ist jedoch vor den plötzlich auftauchenden Energiewolken geboten. 
Ist der Reltungsversuch erfolgreich beendet, Nliegen $ie an den unteren Vorsprung 


der Arche. 

Energieverlust droht Ihrem Schiff bei folgenden Aktionen: 

— ein Asteroid rammı die Arche (5 Einheiten) 

— Sie irellen den Asteroiden nicht {5 Einheiten) 

— Bewegung der Fähre (1 Einheit) 
— Sie fliegen durch eine Energiewolke (20 Einheiten) 
— der Saugstrahl trıffi den Menschen nıcht (10 Einheiten) 


= DEREREIERISHERENEN 


# 
+ COSMISCHE ARCHE 4 
£ 4 
EM + cc) 25.12.1984 3% 
| * + 

: bs Jens Berke # 

+ 

| VEEREEEtEEET 


| In Aid, E18 ),PC4>: Fir3eldı 3 je24i Pl2)e?:Pl4 el 
35 FÜR H=1 TO iS:REAb B:BSCA J=CHRSCB I: NEXT A 
> DATA 184,184, 133,297, 164.133, 206, 104,104, 168, 169,9, 145, 206, 136 208 251,965 
1 CHA=i PEEK« 145 3-8 34256: IF FEEKC263)=1. THEN 18068 
FÜR Ari TO 44: READ B:ASCA>=CHRECB>:HEXT A 
CATA 194,201 .3:208, 254, 162.6, id, 1492, 211: 282 
(44 DATA 208, 256.238, 212: 230, 213.198: 212,2098,4, 195 
154 DATA 213.238,13,.161,216; 129, 214, 238, 216, 208, 2 
DATA 239,217.230,214,208, 234,239: 215,208, 230,96 
A X=USR« ADRCAS),57344 CH, 1624 ):RESTORE 31669 
"1 FOR A=33 TO 58:FOR B=1 TO 6:READb G:POKE CH+A*S+B,CıNEXT B:NEXT A 
: FOR A=16 TO 25'!F0OR Bei TO 6:RERD C:FOKE CH+A&S#+E,C:HEXT B:HEXT A:POKE CH+ 


REAL H:IF A=-1 THEH FOKE 283,1:G0T0 16068 


m: mE DEE: En EEE, SE EEE EEE a En N a 
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TURBO-Pascal mit 
neuen Festures und 
altem Preis!!! 


TURBO-Pascal wurde Innerhalb eines 
halben Jahres weltweit bisher ca. 50000 
mal verkauft. Jetzt wurde die Version 2,0 
freigegeben. Sie enthält eine ganze 
Reihe wichtiger Erweiterungen. Trotz- 
dem ist der Preis von DM 198,- (excl. 
MwSt.) der alte geblieben. 


Die wohl wichtigste Neuerung der neuen 
TURBO-Pascal'bersion ist die Möglichkeit, 
sehr große Programme In sogenannte 
Overlays aufzuspiitten, die jeweils 
bei Bedarf von der Diskette ge- 
laden werden, Die Hand- 
habung ist sehreinfach. 
Der Programmierer 
braucht sich nicht 
um:den 
























= Speicherbe- 
darf oder ab- 
solute Adressen 
kümmem. Beönders 
hervorzuheben ist die 
Pi Möglichkeit, daß Överlays wie- 
: derum eigene Overlays haben 
können, 
Die Venwaltung von dynamischen Varlab- 
iarı ist durch die Implementierung der 
»DISPOSE«-Procedure wesentlich verein- 
facht worden, Diese Procedure, die eine 
gezielte ‚Freigabe des Speicherplatzes 
von nicht mahr benötigten dynamischen 
Variablen ermöglicht, war unseres Wissen 
nach bisher fast ausschlieälich auf größe- 
ran Rechneranlagen verfügbar. 
Der WordStar-ähnliche, im Preis: inbe- 
gritfene Editor Ist um zusätzliche Befehle 
erweitert worden, Neben Befehlen zum 
Scrollen des Bildschirms wurde die Mög- 
lichkeit der Tastaturanpassung (z. B. Be- 
legung von Funktionstasten) stark ver- 
bessert. 
Besitzer des IBM-PC und kompatibier 
Rechner können jetzt mit TURBO-Pascal 
die Grafik- und Sound-Eigenschaften ihres 
Computers einfach und wirkungsvoll aus- 
nutzen. Eine ganze Reihe von Befehlen 
ermöglichen. die Programmierung von.ein- 
drucksvollen Graliken, wobei sich. Auf- 
lösung und Farbe vielfältig variieren lassen. 
Sensationell ist die Möglichkeit, den Bild- 
schirm im »Fenster« (Windows) aufzuteilen, 
die sich einzeln ansprechen lassen und 
die gleichzeitige Darstellung verschiede- 
ner Vorgänge ermöglichen. Der Beiehl 
»SOLND= erlaubtein direktes Ansprechen 
des Tongeneratars im IBM-PG, wobei sich 
Tonhähe und-länge programmieren lassen. 


Version 2.0 im Austausch 

Auch wer TURBO-Pascal bereits gekauft 
hat, kann die Vorteile der neuen Version 
ausnutzen. Er muß lediglich die alte 
Original-Diskette mit dem Bestell-Coupon 
einschicken, um die naue Version zum 
halben Preis zubekommen. Gegen 
Nachnahma oder Vorausscheck 
wird ihm umgehend das | 
jetzt noch Jeistungs- 4 
fählgere TURBO 
zugesandt, 


Ein Zusatz 
zum Hand: 
buch informiert Ihn 

über alle Neuerungen. 
Voraussetzung für einen 
Austausch ist allerdings, dad 
Uns derunterschriebene Software- 
Vertrag vorliagt. 





Jetzt mit 8087-Support 


Es gibt jetzt von TUABO-Pascal eine 
Version, die den schnellen 8037-Mathe- 
matik-Prozessor unterstützt. Wenn Ihr 
Rechner über diesen Zusalz verfügt, 
können Sie mit TURBO-8087, das es für 
die Betriebssysteme CP/M 865 und MS- 
DOSY/PC-DOS gibt, Programme mit FlieB- 
kamma-Berechnungen um ein Welfaches 
beschleunigen. Der Preis für diese Version 
beträgt DM 398,- (excl. MwSt.) 


TURBO-Pascal ist für alle wich- 
tigen Microcomputer-Betriebs- 
systeme (CP/M 80, CP/M 86 und 
MS-DOS/PC-DOS) erhältlich, da- 
durch: sind Programme portabel, 
TURBO-Pascal ist ein extrem 
schnelles und kompaktes Entwick- 
lungssysterm mit Editor, das Pro- 
grammfehler direkt im Quelltext 
sucht, Das komplette System be- 
nötigt nur ca. 30 KByte aufder Dis- 
kette und kompiliert bis zu 100 mal 
schneller als vergleichbare Kon- 
kurmenzprodukte. 

TURBO-Fascal erzeugt optimier- 
ten Maschinencode (280 oder 
8088/8086) und Assembler-Rou- 
tinen können direkt im Source ein- 
gefügt werden. 

TURBO-Pascal verfügt über eine 
11-stellige FlieBkomma-Arithmetik 
mit zahlreichen Zusatzfunktionen. 
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14 Tage 
Rückgaberecht 
bei versiegelter 
Diskette. 


Erhältlich in 
50 Diskettenformaten. 


Bitte hier schneiden! Ben 


DM 194,- + Di 27.72 MS. 
DM 398,- + DM 55,72 Mut. 


Ich bestelle hiermit: 
U TURBO-Pascal 2.0 
| TURBO-8087 Pascal 
im Austausch gegen Version 1.0 


(Aka Orginaldiskeiten missen besgerlgt warden; 
Autzungsvertrag muß ung vorigen.) 


[] TURBO-Pascal 2.0 
[] TURBO-8097 Pascal 
Angaben zum Hechner: 
9 Bit [] 16Bit CPU: 
Diskettengröße 
Oswzol U 8Zall 
Betriebssystem: | 
ODcrmso U cemss Doos OPrcoos 
Fabrikat TV m 
Kontrollieren Sie bitte, ob die Angaben korrekt sind, 


DsSeheck liegt bei. Ül Nachnahme + 04 6,- NN-Gebühren 
14 Tayje Rückgaberecht bei versiageltar Diskolto, 


DM 98,- +04 13,72 MwSt 
DM 298,- + DM 41, 72 MwSt. 


iz.B.»=Z 80%) 








Name: 


Fr/’On 
















Tafafan: 


Labs ars n 


Anfragen von Händlern 

und Disinbentöoren | 

wilkchmmer? Fraunhoferstraße 13 
D-8000 München 5 
Tel, 089/26.40 60 


14 
Sr 
14645 


1AdE 
1418 
IB2H 
IA36 
iG46 
(85H 
alas 
1576 
186 
1096 
1591 
1497 
1493 
i1o8 
1116 
1115 
TA 

112 
1173 
1138 
1158 
1158 
1178 
11#8 
1198 
LZAG 
11H 
1728 
123# 
1735 
1746 
1758 
12658 
ı27A 
127: 
ızad 
1796 
13408 
1318 
Zar 
znle 
2n20 
164 
-118 
217HA 
21.34 
a 1] 
Fri 
2718 
Zr2H 
Fan 5 [2] 


251 
A,K 
Ph 5 
93a 
Kir lale 
ale 
Ssazn 
Era 
Sad 
as 
53 
3arBd 
Sare 
are 
az 
sagr 
Be 
ein ee 
Sale 
“11H 


# 
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190 FOR B=a TO 7:READ C:FOKE CH+AXB+B,C!NEXT B:GOTO 180 


GEAFHILS 29:FORE 765, 145:FÜKE 769,245: FOKE 7189,188:POKE ?11,54:FOKE 756,CH/ 
FÜkKE 33243, 1860:FOKE 705.243: POKE 599, ds: POKE 53277,3:POKE 53256;09:POkKE 5427 


9.CH256 


H=USRC ADRCES 2. CH+6E4B, 128: FOKE 623,4 
ME=SFAHSGEE : EN=EN+1 BMS+SGH 1 O0 SC=B } 

PÜSITION 19,8:7 #63" 

POSITION 17,9:7 #63" 1" SCHERE 34 I "+" 

ZOLDR. F:PLOT 15, 18:DRAWTO 22,18:F05ITI0ON 23, 10:7 46;"," 

FOSITION 17,11:7 Ho "Art" 

FOSITION 19, 12:7 #8; "7" 

FÜR A=1 TO 26 

X#= TINTE RNDCE #4 7 = INTERNDK 8331399: LDEATE KV, ZtIF ZU>32 THEN 1680 
COLOR INTEREST: FLOT %,Y:NEXT A 

GULOR 133: Ideal Auen! DREAWTO 33,28 

FÖSITION 1,21:7 #5: "SCORE. ! "ISC:FOSITION 26,21:7 #6; "PRESS TRIGGER" 
FÜOSITION 1+,23:7. #6r "ENERGY I "JENS" MISSION : "3MIS 

FÜR A=1 TO.2 

FÜR B=1 TO d:COLOR CA+r2+1K072=1INTC BZ I I IC A=1 IH 32 AZ) 

SOUND 8,0,0.8:G0SUB 2588: PLOT #1, Y1:DRAHTO 2. Y2:SOUND 8,96, 12,5:NERT G:HE& 


IF STRIGCö> THEN 1186 
REM ##+# Teil 1 CASTEROIDS?} 44 | 
FOSITION 28,21:7 #65" ASTEROIDS ":350UN0'9,9.8,6 
=SINTERNDCH SH4 +: GOSUB 2000 
HHaueı TASY2:KESHl VERY KSERA: TEA 
A=5tcht RE-AA IE NVZESGHCVE-TAF:F=R 
REM #+#+ Hauptschleife Teil i #+% 
SOLOR 32:PLOT “A,YATKASÄAHRZ: VA=YAHTZ 
IF AA=SHE+RZ AHD YA=TErHTZ THEN EN=EN-5:GOSUB 2180:G0SUB 22993:G0T0 1158 
CHLOR 133:FL0OT AAsYA 
>T=5TICcKl 8: IF ST=15 THEN 1198 
Ge1&65T=1l +2 5T=14 943805 T=7 #9 5ST=13): IF Q=d THEN 1196 
GOSUB 2889:5=0 
COLOR: SH1KC0-2Z=INTC 82 7) 
IF F<>5 THEN 1399 
FLÜT Als vl :DRANTO AHFRZECHAC RE NAH ZEHE TA PTE 2: COLOR 134:PLOT AATA 
FOR H=28 TO 266 STEF 5:5DUND 8,A,0:8:HEXT A:SOUND 08,0,8,0 
=5C+50-ABSC AR=RSIHRBSC HZ 3-RESCHA-TS HRBSC HZ I 
EOSUR Z2eBd COLOR 32:FLOT RA1.Y1:DRAUTO AA,TA:ME=ME-L:IF ME=G THEN 3999 
GOTU 1159 
FLOT Al:Y1:DRAWUTO R2:Y2:SOUND 9,35,12,5:C0OL0R 32:PLOT #1, Y1 
DEAHTO AZ, Y2: SOUND 8.0.8: 8:EN=EN-5:GOSUE 2260: G0OT0 1196 
[Fr A-2< >INHTCO2> THEN 2026 
Ale19: 2er: Y2=cPio3e7 Er PO )el3 313: ri=PiO de RETURN 
Yield: Ya: H2=cPl Ddel4 )ro+l PD I=24 3439 Hl=PCO >: RETURN 
COLOR 134:PLOT AA-AZ.VA-TZ 
SOLOR 32:PLOT KA-Kz,YA-YZ 
IF EN=5 THEN GÜSUB 2288: GOT0 2596 
RETURN 
FOSITION 18, 23:7 #55EN;" "; POSITION 10, 21:7 #5:57C 
IF EH<=8 THEN 2585 
RETUFRH 
FÜPr :POSITION 3,.2:7 #6: "DU HAST BEINE EHERGY VERSCHHWENDET.": COLOR 133:PLOT 


3:3:DRAWTO 35,3 


SOUNGb 1,8.89,6: FOR A=1 TO 15666 STEF 266: S0UND 8,A.16,15-A-1686: NEXT A:S0UND 


‚a, 


soTO 5968 

REM ##%# Teil 2 % HUMAN HESLEUE} #4# 

HU=28+56#3:GOSLUE 2280 

F#=19:Fi=13:FA=IHNTCRNPC OB 3435 +1 

FÜSITION 26,21:7 #65 "PRESS TRIGGER'" 

SOUND 8.59,.16,.59:FOR A=1 TO ZBE:NEXT A:SOURD a.8,8,0 

IF STRIX&5 THEN 3046 

FOSITION 26,21:7 #65 "HUMAN RESCUE " 

REM +++ Hauftschleife Teil 2 #44 

LOCATE FRA-Fr-F2:IF FZ=eia THEHN EH=SEN-28:G05UB 2208 

OLOR 137:PLOT FA, FY©ENSEHN-1:GOSUB 2206: GOSUBE 4899: GOSUB 4500 
IF Fa=12 AHb Fr=13 AHb Hu=a ANb STICK )=e14 THEH 6888 
ST=STICK 8: IF STC>15 THEN 38960 

SUUND 1,8,8,8:1F STEIGCH3=E THEN GISUB 4580 

GASUB 4988: G0OSLUE 4506: 6070 3688 

SULND 1,299, 2, 2:COL0R FZ:PLOT FR,FT 

FRSFKHCITLBIHCFRL 39 I ST>E AND STE 12H Far 

> üR 5T=3 OR STELBIHEFYSIBI-CST=S OR 51-18 OR STel43kcFi>13> 





u 





eo eo 8 8 8 BB 8 BB BB BB hr fh rer cc ce ci oe 8 ee 9 


FEBRUAR 1985 








5 GOTO 3868 


BEM +++ Menschen bewesen 44H 
IF HA=-1 THEN"RETURH 


i EOLOÖR 32:PLOT MA-19:A=RNDCH} 


ME#=HK-( Ried. SIE MAR Ir AB. FH MARI) 

EOLAR 8:PLOT M&.19:SQUND 8.9.4,.5-:S0LNDb 8,8,.8,8: RETURN 

FEH 34# Wolken aufbauen ##4 

IF RHbCO KB. 95-8G-/106 THEN RETURN 

#1=1NTE ENDE A5E33 3: YI=INTERNDC 8 35 +13: COLOR 18: PLOT X1.Y1:RETURN 

REM +++ Sausstrahl ### 

EIKE 53249, Ftd+48: FOR AscH+7l2rcFY-135%4 TO CH#733:FÜKE A,240:NEAT Fi 


SOUND 5.186. 12,4 
IF FA=HM% THEN 464 


ENSEN-1B:GOSUB. 2209: K=USRC ADRCBS I), CH+648, 1239: SOUND 9,9,89,0:RETUFN 


ı COLOR 32:PLOT M%,19:FOR A=19 TO FY+l STEP -1L:LOCATE FR,A,C:COLOR 8:FLOT F#: 
. FOR B=1 TO 28:NEXT B:COLOR C:PLOT FR»A:NEXT A 


Sc=sc+laa+rl 18-Fr)’K2:GOSUB Z2B6: HlU=Hl-1 


4 KeUlSRC ADRCBS 7, CH+548, 128 3: SDUND 2,8,8.,8:IF HU=8 THEN M%=-1:RETURN 
A M&=INTERNDEB 533 3+1 RETURN 


FOR A=1 TO 498:POSITION 28,21:7 #63" PRESS START " 


a FOR B=1 TO 28:G0SUB Si@@:NEXT B 


5458 
3993 


4 POSITION 20,.21:7 #6 


Fric] 
ENP B=i TO 28:G0SUB S198:HEXT B:NEKT A:GOTO 18906 
IE PEEKES3PTEH>E THEN RETURN 
FuUhN 


A POSITION 1,3:7 #6: "APPLAUS,..ALLE MENSCHEN SIND GERETTET." 


SoLoR 133:PL0T 1;4:DRAUTO 38,4:50UND 1,0.,8,6 


A FOR A=a TO 15 STEF 8.1:50UNDb. 9,5,0,R:NEHT A 


FÜR A=s1. TO 289: NEXT A:FOR A=15 TO 8 STER -8.1:50UHD 8,5,0,A:NEAT A 
MIS=MIS+1 :S56G=3G+1&#05G73) 

GITO 1608 

REM #++ Vorspann 34% 


InaaA GRAPHICS 8:POKE 32.8:FüKE 622,255:0PEN #1,4,8,. "E":FÜKE 719,8:POKE 752.1:7 


ÜHRSt 175) 
1501 FOKE 7#5,2:POKE 712, 2:A=PEEK( 559 3+256FFEEKX 551: FOKE A+23,2:RESTORE 30888 


iaa28 FOR Rei TO il 

18936 READ As; #PsL:POSITION APr,23:T Me 

1aA44 FOR Bei TO L:? :HEXT B:NEXT RA 

15856 POSITION 1,14:7 "Schwieriskeitssrad : 8":7 " mit SELECT waehlen":3G=8 
1fasa POSITION 2,18:7 "Drüscke START um zu besinnen. „.' 

ıaa7a IF FEEKCS3279)=6 THEN CLOSE #1:G0T0 188% 

iaaaa IF PEEKtS327FK>S THEN 19978 

15998 SG=5G+l:1F SG=4 THEN 56=0 

14188 POSITION 22,14:7 56 

{1ai1a FOR A=& TO 39:S0LND 9,A.18:7:SDUND 9,8,8,.8:NEAT A:GOTO 19970 

aaaad DATRCOSMISCHE ARCHE:S,1B 

aaa18 DATA ,.tc) JB’84 25.12.1984,9,18 

aaa2a DATA GRAPHIC UND FROGREAMM.18,1 

28038 DATA YOHN,19,1 

sad4a DATA JENS BERKE, 15,1 

aaad4s DATA FINKENHÖOF 7,14,1 

saasa DATA 3078. HIEHBLRG,13,18 

saasA DATA TEIL 1 : ASTEROIDS, 1,1 

Ara DATA ABWEHR DER UMHERFLIEGENDEN ASTEROIDEN..» 1.3 

aaasd DATA TEIL 2 : HUMFN RESCUE,1,1 

24994 DATA RETTUNG DER LETZTEN UEBERLEBENDEN. 1,153 

31488 bATA 32,204, 136.168, 204, 204, 240, 204. 160, 168. 204, 240,68. 192,128,1298,192.60 
en bATA >49, 204,136, 136,294,249,252,192. 128,168, 192,252. 252, 192,128, 168, 192,1 
1924 DATA 68,192, 128,136, 204,650, 204.204, 136, 169, 204, 204, 252, 49,22,32,49, 292 
st820 DATA 12,128. 126, 204,48, 204. 204, 160, 168, 204.,204,192.,192,128, 128.192, 252 
a1nda DATA Z04.252,126: 136. 204,204, 204,232, 168, 163,204, 204,48, 284, 136. 126, 204,48 
“1980 DATA 240, 204, 1265, 168,192, 192.43.,204, 136.136, 204,69. 249, 204, 136: 159.249, 204 
>1gsa DATA 60,192,128,32, 12,248, 252.48. 32,32, 48, 48,204, 204,136, 126,204, 252 
1078 DATA 204.204, 126,136, 294,49, 204, 204,136, 136.252, 204 . 204, 204, 32.32. 204,204 
sigsa DATA 304,204, 126,22, 49,48. 252.12, 32,128, 192.252, 168, 136,136: 136, 136,168 
Sina DATA 32.100, 32,32.32:158: 168: 8,8, 168, 128, 169, 168,8, 32,8,9, 188, 135,195, 136. 
178:8,8 

1109 DATA 163,128,128: 168,8, 168, 163.128, 168,128. 136; 169,168,3,98,49. 32,32 

31118 bATA 168.126, 135,168, 136, 158, 168, 136.169, 8,8. 168 

“29409 DATA 1-8,0.9,8,1,5.22.98 

=>91A DATA 2:15: 22.908. 1985,170,178, 17 

2028 DATA 3:84,58, 148.165, 169, 170, 178, 178 

Sea DATA 4,8,0:9:9,64,80, 143,165 

sed DATA 5,98, 22:59:1.8.0,.0,0 

“aan DATA 
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5.176,178,178, 106,90, 22,5, 1 
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S3en6B 
S2n7E 
s2n5B 
32n98 
32164 
42109 
s3ellhd 
32128 
=2138 
set 
32190 
32168 
3?178 
32186 
32198 
322Ha 
Be | 
„2228 
Fa I 


Listing: 


4 REM 
i.REM # 


REM + 
REM # 


REM HH 
r? REM 


Y+ 170, 178.178, 169, 165; 148, 80,54 
3,165, 143; 80:.64,9.0,9,0 
9,195. 185: 185; 195: 105. 48,8,8 
19,0,8,48,.165, 105,108, 185,185 
11.176. 178,.178; 178,176, 176,179,.178 
12,39: 29,48, 40,40,48,55,85 
54, 60,0,45,9,09,8.8,8 
50.89, re, 
56,.8,8,60:.8.9,40,3.0 
5, 8.5,176,1768;170.170,8.0 
565,.d40,40, 40,40, 40, 4,4, 4 
59, 0,48. 2236.,.259:63:99.,12,0 
r9,3,204,.0,44,11,48, 204,3 
11:39. 99. 42, 42, 42: 42799: 55 
r2:32:22,0:,2592:48:48,. 204, 204 
3.8. 28,55:170,59;, 170,85. 28 

| 74, 8,48, 252, 259, 299, 299, 69, 8 
er 


REH * ic) 19,8.1984 bu # 
#4 REM # 


Jens Berk» 
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ATLANTIS: 


für Atari 





Nach einem Erdbeben ist der 7. Kontinent, 
ATLANTIS, wieder aus dem Meer emporge- 


kommen. 


Geschrieben auf dem Atari 800 XL. 


| Doch anstatt Ruinen sieht man mil 


kKuppeln überdachte Studie, Krafiwer- 
ke, Brücken u.s.w. Die Bewohner von 
ATLANTIS haben also überlebt. Ihre 
alten Feinde jedoch, die Klagonier, ha- 
ben auch nicht geschlafen und schicken 
sofort ihre Flotte aus, den Kontinent in 
eine Wüste zu verwandeln. Sie als 
Kommandant müssen nun mit 3 super- 
schweren Geschützen die Feinde auf- 
halten. Ob Ihnen das gelingt? Man wird 
schen... 

Mit der linken und rechten Kanone 
schießt man, indem der Steuerknüppel 
nach lınks bzw. rechts bewegt und dann 
der Feuerknopf gedrückt wird. Für die 
mittlere Kanone müssen Sie den 
Steuerknüppel in der neutralen Stellung 
lassen. 


Punktewerlung: 

Für die langsamen Raumschiffe gibt es 
20, für die schnellen 50 Punkte. 

Die linke und rechte Kanone können 


aufgrund einer speziellen Panzerung 
nicht zerstört werden. Hat man die 
mittlere Kanone verloren, so muß eine 
bestimmte Punktzahl hinzugewonnen 
werden, um eine neue zu erhalten. Die 
Raumschiffe können nur getroffen wer- 
den, wenn der Schuß sie von unten 
erreicht. Leider wurde die linke Kano- 
ne fehlerhaft gebaut und kann aus die- 
sem Grunde dıe schnellen Feinde nicht 
irellen. 

Das Spiel ist zu Ende, wenn alle zerstör- 
baren Bauwerke vernichtet worden 
sind. Es kann übrigens durch gleichzei- 
tiecs Drücken von CONTROL und | 
unterbrochen und durch eine nochma- 
liege Betätigung fortgeseizt werden. 

Hat man vorher schon ein anderes 
spiel gesmelt, so sollte vor dem Pro- 
grammstarı von ATLANTIS der Befehl 
FOKE 203,0 eingegeben werden. 

Bei der Eingabe des Programms sollte 
besonders auf die Richtiekeit der 
FRINT-Befehle geachtet werden. 
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ia bIM Asc44 3, RXC4 3, RYC4 3, COC 43, 3.1399, WGC 39 I: CH=C PEEK( 186 7-8 382565: IF FEEK«( 203} 

<>8 THEHN 11058 

ı1a FOR R=i TO d4:REAb BiRECAs=ecHRskt bb}: NEAT A 

i?ä bATA 184: 201.73. 208,254; 162,6, 194, 149, 211. 282, 288 , 258, DREI 198,212 
‚?B6.4,198 

i2a bATA 213; 248.18; 161, 216; 129, 214, 238; 21. 208. 2,2308, 217,238; 214,208, 234,238, wi 

Ba a = er 1 Pe 1 

i4A DellSkc ADRCAS >, 57344: CH, 5959: RESTORE 32068 

i5ß REARb B:IF B=-1 THEHN FPORE 283:1:GUTO 11036 | 

ieh FOR Asa TO F:READb C:FOKE CH+B#8+A,C:NERT RESold 158 

aaa RESTORE Zie:FÜR Red TO 39:READb B:SLiA3eb:HEAT A > 

218 DATA 13,13, 14, 15, 15,16, 16,16, 15, 16, 17417174 17417,17,16, 15. 14,15, 16, 16, 16, 16 
16:17, 17,17, 17,17, 17, 17 

258 BGATA 18:18:18: 17: 15,14, 13, 13 

»aa FOR A=& TO 39:READ B:UGLA)=B:NEKT A: RETURN 

>48 DATA 0:9:8,2:2:8,1:8,1,0,8,3:3,3:3,8,1,8,4:8,8,39:3: 9 358,99, 5,5,5,5,B8,2:2:8 
:1.9,8,6 

aA GSRÄFHICS 28:POKE 752,1:POKE 82,B:FÜKE 788,54:F0OKE 718, 164: POKE 7899, 252:F0KE 
711,158: POKE 756: CH+256 

ia1A DBL=PEEKiS6B »+256HPEEKt 561) 

ia2a FOKE DL+23.,2:F0OKE DL+6,2 u | & 

1a3a POSITION 8,14:7 #5 I CHRSC 219 I; CHREL 228): FOSITION 38, 14:7 K6;CcHRal221); CHREL 2 


84a 7 #6: "AH % ET sy 

1750 7 Ba At "CHRB(223)" SH "CHRECH3 "HR" 

IasA TH RER Ei Fol u" CHRSC172 3 CHRSK ITS CHRSCITA SI CHREL 173910 
ehr A 

iara 7 Ha "AR ch 

iaa0 7 #6, "34% A 

IB ran tete 

1156 COLOR 37:PL0OT 8, 21:DRAUT 

L11M POSITION 4,23:7 #6; E 

ii>a POSITION 12:1:7 #63 ae 

1139 SC=B:AR=B:AG=1G:KF=1 | 

2a GOSUE Seas GOS UB a: IF Aksd THEN 2666 e 

2910 N=H+1:1IF H>AR THEN Heil | 

2028 COLOR 32:PLOT RXCND:RYCHIERKCHISRKRKNI+LHECOCNI=34) | 

>a3a IF RXCH3=e4de THEN RRCHI=SB:RTCHIeRTCHFFZ: IF RYcHP>LL THEN RYcH ae 

add COLOR COCHJ:FLOT RAcHHiRYEH? 

zasa S7=57-+RHbe)r73+3ßfs: IF 52:19 THEN 2808 

apsn Se: R=INTCRNDCBSHAR >+1 | | 

-arn COLOR B6B:FLOT RACARTCAIFL:DRAUTO Ri 3, SL RALA IF: SOUND 0: 155, 12,4 

"aaa GÜSLUE TER: SDUND B.0,8.0 

>a99 COLOR 32:PLOT RA): RTCAP+L:DRAUTD. RSC AP, FOS:COTO 2068 

=a05 IF SF=1 THEHN GÜSUB 4866: RETURH 

=Ala IF STRIGCA)> THEN RETURN | 

A220 Stebt5F=1:'38T=STICcKlah IF ST}12 ANb EF THEHN 3889 

=a30. IF STSE THEN 3975 

amade IF ST>8 AND ST{L2 THEN 38658 

aase SF=8: RETURN i | 

ash Zu=-1:5K=el: SYe13:C0=6:C0OTO 3008 

aarh ZE=1:5%=38:57=213:C0=7:G0T0 3068 

SARa Zieh: Selbeldıclsbi: GOTT 3088 ' 

dar Color 32:PLOT SV ER zR: SYS -L150=bdr SOUND 2,50,8,2 

4aie IF SY=4 THEN SF=B:S0UND 2,8,B,.B:RETURN | .. LERETTN 

aa>a LOCATE SK,SY.Z:1IF Z>32 AND 2735 THEN SOUND 2,8,8;5:6C0T0 698 

4438 COLOR CO:PLOT ERISLIRETURN 

saAd IF ARk=4 THEN RETURR | 

saia PreRZ+RNDLB9+35G/5: IF RZ<7 THEN RETURN | | 2 tm Mel 

=a>A P2=d: ARsAlr+l ıRKc AR eb: Ryic AR ISS:COCARI=33: IF RNDCBISSG+1 918 THEN CHE AR ed 

536 RETURN le DE 

Sana EOR Rei TO AR:IF RRCA)eSK AND RrcA)est THEN 6820 


: NHE#T A 
gas COLOR E4dıPLOT RYCA>-RYch):ForR Bea TO 166 STEF 5:S0UND 8.,B,9,10:NEXT B:5DUND 
A,A, A, 
aa COLOR 32:PLOT RACA9-RTCN} 
Er FOR Beh TO AR-1: IRYEBISRNEBHEKCBLA ID: PYı B3eRtc B+r1 HC Bi 4 43: CO Beil Br Bi)) 
NEXT = 
SosH AR =Ab- |: SC=3c+Fo+3ck Zei): Sie Sa BEKCSGS>3 >: GOSUB SBBB:SFedı R2i=ß 
Eh TE EF=B THEN SCF=SCF+20+308C F=e34h: IF SCFHSCKZ#+1 #105 THEN GOSUB 10966 
EAara RETURN 
aaa POS=SLERHCAIION WNECRKCAI> GOTO 71098, 7288, 7306, 7486; 7508 
ald RETURN 
aa CErke Ar COLOR 64: PLOT C-POS+1:S0UND 8.158. 10,2 
”11A FOR Bea TO 186 STEF 2:S0UND 1:B,8,8:HEXT B:SOUHD.9.0.8,0:50UNb 1,8; 4.6 


FA 
Ka fararne 
ar 


PLOT B.22. DRAHTE 39,22 
T15 Er JENS BERKE” 


a a En HE EEE EEE EHE Me EC EEE ME > HRS HB sn EEE CE: CE HE: HE "HE: HEHE. HE: (EEE. N Fam Mm: Ta HEN: ME Fa) BEE) ‚m: Hm: Be ie TE mE TEN TE TERN EHE FERN SmmEE Senne (me Sm > =| 


E 
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r12A COLOR 32:PLOT C,POS+1:DeB:G0oT0 8888 

rzaa IF RstA9<S THEN C=3:G0T0 7228 

reiäa C=33 

rz2a LOLOR 84: PLOT C;POS#1:PLOT C+H1,POs+1 

rz3@ FOR B=i1 TO 28:SOUND GB; RNDEE>HIER,A,6:NEXT B:SOUND 8,0,0,8 

‚24a COLOR 32:PLOT C,FPOS+l:PLOT C+1,POS+1:De1:G0T0 8888 

raaa IF RXCA3t1S THEN Cell:GOoTO 7328 

raid C=21 

ra2a COLOR 183: PLOT C,POS+1:DRANTO C+23,POS+1 

1338 FOR Bed TO 56 STEF 2:S0UND B,B.9,6:SQUHb 1,B-12,6:HEXT B:SOUND 9,8,8.9:SQUHN 


Dr 1,8,.4,6 
r.348 CHLOR S2:PLOT C.POS+1:DRAUTO C+3,FÜS+1:D=e3:6G0T0 8966 
r4a6 C=18 


r4160 COLOR 189:FL0T C,FOS+1:FOR B=255 T0 8 STEP -15:S50UND 8,8-0,8:NEXT B:SOLND 8 


‚8:08,06 
7428 COLOR 32:PLOT C,POS+1:D=0:KF=8:SCF=8:G070 89080 

oda Ceib 

rold COLOR 64: PLOT ©, PO0S+1:DRAWTO C+5:FOS+1 

7524 FOR E=8 TD 189 STEF 5:SOUND 9,B+90, 10,2:S0UND 1-B:12,6:NEXT B:SOUND 8,0,8,8 
SOUND 1-,09:8,8 

75a COLOR 32:PLOT C,POS+:DRANTO C+5,P0S+L:0=5:G0T0 3008 

2850 FOR B=C TO C+D:3LCB)=SLCB)+Hl ıUGCB)=B: NEXT Bi AGeAG-1 

=Aalßb IF AG=s6 THEHN POP :GOTO 12088 

3648 POSITION 28,1:7 #65SC:RETURN 

18968 COLOR 33:PLOT 18, 15:KUGC 18 3=4:5Lt 189=14 : Kfe1: AGeßH 

1aalb FÜR B=56 TO 8 STEF -3:SOUND 6,8, 18,3:50UND 1,B+1,18,5:NEXT B:SOUND 8,0,8,9 
SOUND 1.8.8.0 

15A2B RETURN 

11598 GRAPHICS 4:POKE 712,252:POKE 719,252:POKE 789,8:POKE 708.38:POKE 752,1:POk 
E 82.8: CHRSI 125} 

1118 SC=PEEKt 38 )+H256#FEEKL 39) 

1124 COLOR 1:PLOT 8,15:DRAUTO 79, 15:DRAUTO 79, 24:DRAUTO 8, 24:DRAWTO 8,15 

1134 RESTORE 11130:FOR A=6 TO 7:RERD C:FOR B=a TO ? 

11046 POKE SC+161+A+B*19,PEEK( 57344+C48+8 ): SOUND 8. 7-B,18,8:NEXT B:SOUND 8,8,8.6 





NEXT A 
en "Coryrısht %c9 Ausust 1934 b3 Jens Berke":7 " select skill level 
ilsc0 7" then Press START"; 


Dane HS="NOYICE SKILLED AbVANCEDEHFERT :NEXT A 
* ECHRSL2S 3; 


11030 IF PEEK(53279)=6 THEH 1886 


"ı5G=B:FOR Reli TO 4:7 CHR&C31}; 


[ 


11654 
1114# 
11116 
i1l1l28 
11138 
17005 
12618 
12028 
129368 7 
17046 
124568 
32288 
Ss2ald 
2078 
„za 
Sad 
szAsH 
Sease 
Srara 
SsaBar 
37038 
Selbe 
=211H 
selza 
se13H 
J2lg4e 
=3?158 
Sir 
s2irBd 
2160 
rc Be 1% 
32206 
Sr218 
Szzeh 
322308 


IF PEEK« 532795% 75 THEN 11886 

sG=5ß+tl:IF SG=4 THEN 56G=8 

FOSITION 26,22:7 As SG#S+1.5GX8+8 35; " ur 

FÜR A=1 TO 11:7 CHR&C(36); :NEXT R:FOR A=i TO S6:NEXT A:GOTO 11A88 

DATA 33,52,44,33,46,52,41:51 

SOUND 8.5,8,8:50UND 1,8,8,8: SOUND 2,8,0;,0:SOUNDb 3,0,8,0 

FÜKE BL+I14,2:FOKE DL+18,2:POSITION 11,9:7 #6: "GAME 

De A=d TO 168:5QUND 8,A.A,6:NEXT A:SOUND 9,.8,6,8 
#57" DRUECKE START FÜUER EIN NEUES SPIEL" 

IF BEE Sera THEH RUN 

GATO 12646 

DATA 1,8:;8.8,30,69,20,8,6 

DATA 2:9,8,28,65,85;28,40,8 

DATA 3,0, 240, 240, 240, 2392, 292, 259,255 

DATA 4,3,15:19,19,63, 299,259, 259 

DATA 5. 299, 299, 259, 299. 299 299, 209, 299 

DATA 5,8,40.48,.48,138,178,138, 176 

DATA 7,8,32,152,32:192,32,132,32 

DATA 8,8.1,1,4,4,16,64:85 

DATA 9,64,58,50,.58.58,65.69,83 

DATA 18,8,4,5,6,:9, 22, 21,21 

bAin 11.8,8,50, 144,60, 146,84,54 

DATA 12,8.8,2,8:32:33.129, 143 

13,18,159,1,1,49,49,125:255 

14,169; 18:8, 12,12,172.15, 255 

DATA 28,48, 48, 40,49, 48,40, 48,46 

DATA 38,48, 60,48, 68, 48,650, 48, 660 

bATimM 32:0,4,69, 16,4, 64, 17,6 

bATA 59,8;:8,8,8,3,3,15,51 

DATA 60,.48,43,192.,192,15.31,255,51 

DATA 81: 12,12,3,3:48. 294.237, 204 

DATA 62:8.0,0,.8,192. 192, 249.204 

BATA 63;,8,12:29,12,29,12;,29; 12 

DATA 29,6, 32,2:,192,12,2,128,32;,-1 


OVER" 
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Geschicklichkeitsspiel 
für eine Person 


Nachdem sich das Spielfeld aufgebaut 
hat, ist es Ihre Aufgabe in einem Laby- 
rinth alle verfügbaren Punkte zu „fres- 
sen“. Ist Ihnen das gelungen, erhalten 
Sie ein Zusatzspiel und der Schwierig- 
keitserad des Spieles steigt. 

Innerhalb des Labyrinths tauchen je- 


Punktefresser 


für VC-20 ohne Erweiterung 


Sie zu töten. Sollten Sie also von einem 


Monster gefressen werden, erscheint 
auf Ihrem Bildschirm ein Kreuz und 
eine Melodie erklingt. Danach baut sich 
das Spielfeld wieder auf und das Spiel 
beginnt von vorn. Gesteuert wird mit 
Joystick. Los geht’s und „Guten Appe- 





doch Monster auf, deren Aufgabe es ist u“! 


u KEhiesesss#sseeessh 


72 RElM= PUNKTE - 
FRESSER 


uaı 


REMe 
6 REN= 
!BE HREfesserssseessamszs 
3a FRINT ee 
5 POKE36879, 9 | Be | | 
ge PRINT"ZABIE MUESSEN VERSUCHEN ALLE PUNKTE ZU FRESSENUM DAFUER PUNKTE ZU ERH 
ALIEN." Be. 
35 PRINT"SABER WORSICHT DIE MON-STER WOLLEN SIE TOETEN" 
100 FORI=BTOS4: READK:POKEB2E+L, K:NEXT 

6 FÜRI=6T034:READK:POKESZ8+1.K: NE? | 

ir DATALES. 127. 141.134 145, 173,92, 145: 41,128, 133, 251,169, 253, 141,34 
1328 DRTA 145,173,31. 145.41, 28, 24, 161.251.133,251.173,31:199,41,3% 
136 DATA nn 
148 PRINT"FICKREN wer 
158 PRINI "STEUERUNG MIT JOFSTICKBERIWIEL GLUECKII' 
168 FORK=OTOT:POKETIES+SZHEHN,B:NERT 
178 FÜRK=ATD? :READA: PÜKE?7IES+4E#S+R. A: NEAT 
ıSd FÜRk=B107 :REAUA:FOKE7168+A.A:NEAT 
iSd FÜRK=BTO? : RERDR: POKE?I1EB+42 StR. A: NEAT 
2a FÜRKX=BTO?:READA:POKE/IES+HI#B+R. A NEAT 


i 

i 

1 

i 

1 

i 
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I 

i 
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FUNKTEFRESSER — 





226 DATAB,8,8.24,24,8,0.8 

>35 DATAS; 98:0. 98;:398:8:98.0 = | 

249 DATA219, 219,90. 126, 24,60: 126,135 

256 DATA24, 24,126, 189,189, 36, 36:36 

260 DATR24,24, 126, 126,24, 24,24, 24 

ra FürRZZ=1T03888: NEAT 

284 FOKE38869, 255 

238 PRINT" I" = | 
a0 L=22:2=7680:Fe200:0=46: I=46:! POKE3E878, 15:Kal JB: WeB 
318 FÜKE36EB79; 10 

328 PRINT" SI" Ä | 

>30 PRINT" DEEREERBEGEREERBERREEE" 

348 FORT=SBTOS 

358 Ba TE ae nern aa 

60 EFRHINT'G: 0 anne unun. 

ro PRINTES een nn 

384 NEXTT ö 

98 PRINT". suounanansnnnn une. 

4ad FRINT" EBEEREEEERERERBRRRERE" 





= u EEE A: CE EEE SEE E u a EM: SEEN TEE MEET Sm nimm <ime «im 
- r a EI: EEE EEE TEE Sm Sim: mm: sim in HE HE: ME HN TEEN" MEET" SEHE MEET Hmmm | u ur ug ge 
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418 FORZZ=AT028: POKE?FOI+ZZUL,O :NEXT 
428 FORZZ=1T0108 
438 ZW=INTERND<1)#439)+7782: IFFEEKCZY-23)=0 ORPEEK(ZY+23)=B ORPEEK(ZY-21)=8 THEN 


+48 IFFEEK(ZF+ZII= BORPEEK(FZY)=ATHEN430O 
458 POKEZT.B 
dbd NEXT ZZ 
47E PRINT'R" 
458 FÜRZZ=ET028:FÜKREB142#+72 32: NERT 
458 FOKE36875; 288: FORFG=1T0288 NEXT :POKE36875, 08 
38 IFJ>OTHENSEE 
Sid Ka=l9 
Sei Tai 
Ss38 Fei+tk+lr 
548 D=INTCIB#RNDEI 33 :E-INTEIBERNDGC15HH  Ge7+D+LHE 
ssd IFFEERiGI=BÖRFEER CO) =3Z20RPEEK (G>=1 THENS4O 
Sea M=INTCIBHRNDG 123: H=INTCLIGRRHDILIH : TeZ#+N+ HN 
sr8 IFFEEKCTISBORPEER<TI=SSZORPEEKCT)= 1 THENSBO 
set FÜKEF:1:FÜOKEG, 42 
98 Aa: Beti:d=P ; 
EB Weulri: IFW=WTHENW=SB: FORS=1T0188 :NEXT :GOTOSZEB 
si GÜSUB738B: GOSLBS3H 
E26 YV=INTicK/2ırFit2 
E25 SYSB2B 
638 IFPEEK{251)=148 THENK=eK-1:6G0TO878 
E48- IFFEEKCZS1I=SZETHENASK+1 :GOTOE7O 
Es8 IFFEEK(ZS1)I=148THENFeY+l : GOTO6S7B 
b68 IFFEEK(251L)=152 THENV=SY-1 
are Paitkr+l#r 
5358 IFFEEKIFISBTHENKFR Feb: P=o:GOT0538 
638 IFPEEK(P)=42THENFOKER, 32: 60701838 
‘48 IFFEEK(P)I=dETHENFOKESS875, 238: J=J+1 K=ek+,5:PRINT" 19": I#18; "WM": POKE359753:8 
rıiB IFJe27350RJ=108555 THEHNJ=J+1 88808 :GOTO32B 
red FÜKED: 32: FOKEF,1:6G0T05938 
rsE H=sb:DKk=l:Ek=E 
r4d IFD=SATHENS3B 
r58 IFbSKTHEHND=D+1:GOTO?77E 
688 IFDFATHEND=D-1 
rra Gei#+l+L4E 
86 IFPEEK(G?=ITHENFÜKER; 1:GOTO1638 
960 IFFEEK{G}=BORFEER<G}=42THENG=H: Debk  E=EK:GOT0838 
Sid FÜKEH,I 
Eiö I=FEER(CG) 
328 FÜKEB: 42: RETURN 
538. IFECFTHENE=E+1 :GOTO858 
Edi IFEPTTHENE=SE-1 
E54 Gei+o+ HE 
568 IFFEEKiG?=ITHEHFÜKEH: I:GOTO1538 
378 IFPEEKiGI=SBÖRFEER<G>=42 THENE=EK :G=H: RETURN 
BSB FÜKEH: I 
335 I=PEEK{G) 
588 FOKEG:42:RETURN 
18 IFMSKTHENM=H+1:6G0OT03358 
328 [FNS>ATHENM=M-1 
338 T=Z+Hh+L#h 
548. IFFEEKET>=1THENPOKER .,0:GOTO18938 
950 IFFEEKCTI=SÖORFEEKGT IS4ZTHENM=MK : T=R RETURN 
J6E PÜKER.ÜO 
976 Ü=PEEK(T} 
sad FÜKET.42:RETURH 
3358 ReT:Mk=M:HK=H 
1688 IFN=TTHENS1H 
iBiö IFNCFTHENN=N+1:GOTO183B 
1825 IFN>FTHENN=H-1 
1636 T=eZ+h+L&N 
1648. IFFEEK{T>=1THENPÜKER. 0:GOTO1838 
1858 IFPEEK{TI=BORFEEK{T }=4ZTHENN=NK : T=SR:GOTO318 
ideH PFÜkKER;Ü0 
878 O=PEEK(T: 
i6s8 FOKET 42: RETURN 
iB9a PÜKEP,2 
- 1108 PRINT" IERGEEHTS: ";.T#18 
i1i1ö FORT=255T02080651EF-.1 
1125 FÜkE35876,;T 
1136 NETT 
1146 FÜKE3SE78,8 
1158 GOTO388 
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Star-Wars 


Für VC-20 ohne Erweiterung 





Sie steuern ein Raumschiff, am oberen 
Bildschirmrand dargestellt, und haben 
die Aufgabe, mit ihren 3 Raumschiffen 
bzw. 3 Leben solange wie möglich heil 
durch das mit todbringenden Minen 
bestückte Asteroidenield zu Niegen. Al- 
lerdings wird diese Aufgabe dadurch 
erschwert. daß sie während den schwie- 





it FÜKREIG:ZS 


2b 


KESTORE 
I=b 
RERLA: IFA=33STHENSE 


GOSUESH 
2 GOSUE>]1 
= GÜSUESS 


rigen Ausweichmanövern auch noch 
die feindlichen UIFO-Geschwader zur 
Strecke bringen sollen. Für jedes getrof- 
fene UFÖO gibt's 50 Punkte. 

Sollten Sie zufälligerweise auf einen 
Meteoriten schießen, wird dieser nicht 
nur ganzeelassen, sondern auch ihre 
Punktzahl schrumpfi um volle 10 


kt POKESZ,28: PRINT" :POKE36879,8:P=35879 
1 PRINT" REEEIRKIBNATAS WERDEN GELESEN!" 


i 
[ 
L 
i 
IATAS, 5, =P fen Arte 1; 19, ler d Fir Ei: 20, Pa Pe 28: 13 ei-P 129 
ı 22 DATA129, 153. 189.221: 189,153:129,129,37,73,34,148,61,409,52,48 
| 23 DATAB.8,08,0,4.0,8,8, 126,129, 157, 161,161, 157,123, 126 
ı DATA12?. 128,143, 144, 136. 132,252, 128, 295,0, 255,68, 74:99, 81,6 
DATA254.1,249,53,41,37,35, 1,128, 193,178, 178, 178,198, 128, 127 
ı 3 TATRA, 255, 146, 147 , 146, 98, 8. 255, 1,143,81, 201,69, 61, 1,294 
DATAB. 68,126, 125,54,8:36, 73, 127,145, 17,57,81,17,39,0 
ı 33 DATA255 69, 229,37,21,21:23:0,253.34,64,88,68,36, 24,0 
DATAB:6,65:65.65,8,0,8, 28, 127, 119,85, 7 

' DATH129.,36., 73: 20,42.20, 20,8. 129,66, 24, 244.,47,24,56, 123,393 
I 

i 

I 

r 

i 

i 

[) 

) 

1 

i 

I 


FÜKEriss+tl,R:I=lt1:60T06e 
FÜRF=F424 107432: PÜKEF 8: NEXTF:CLR 


Punkte ab. Auch die gefährlichen Al- 
pha-Minen sollten Sie nicht als Objekt 
für Ihre unfreiwilligen SchieBübungen 
benutzen: Es könnte Ihr leızier Schuß 
sein!!! 


Gesteuert wird Ihr Raumschiff mit den 
Tasten: 
O= links rechts =P F = Feuer 
Bei Kollision mit einem Meteariten 
bzw. einem UFÖ oder einer Mıne ver- 
lieren Sie ein Schiff. 


Wie schon im Listing bemerkt, kann 
das Meteoritenfeld selber gesualtet wer- 
den. Hierbei ist L= Meteorit, 5= Mıne 
und B=UFO, Allerdings isı die Anzahl 
der A-Strings auf 20 dimenstontert. 


| 
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FEBRUAR 1985 HOMECOMPUTER 59 





i 
&4 GOTD1B8 
6 FÜRG=7ESET0818$:POKEG-32:NEXTG:RETURN 
"1 FOKES5889, 295: RETURN 
33 FÜRS=1T035:%=1NTCRNDC1)KSCB)+7688 :POKERX, 4: NEXTS:RETURN 
158 PRINT" BERKER GHRANEIT IK" _ 
116 PRINT" ISBBBEENAETBSPINDH-SOFT", ‚"OMELTD. a" 
{11 FORU=1T01088:NEXTU:P=36873: POKEP-1, 10 E 
112 V=8:60SUB126:FORT=1 10206: NEXTT 
119 FORL=1TO2EV=y-22:POKEP-4, 248: FORM=1T030: NEXTM:POKEP-4,6::POKEP-3, 248: FORM=1T 

H: I 
114 FOKEP-3,8: FÜKES158+Y 8: POKESISZ+V, 1: FORM=1TOLB:NEXTM:POKES1SZHV,32:NEXTL 
115 FÜKEP-3,8:POKEP-4, 0 
116 FuKEF-2, 220: FÜRL=1ST0USTEP-.5:FOKEP-1,L:FORM=1T015@: NEXTM:NEXTL:POKEF-1,8:P0 
{" # 1) 
117? GOTO135 | 
126 V=O:'FORJ=20010222: FOKEF-2, J:FOKEFFO4HV 2: POKE?BBIH+V 32: yay422 
127 FORT=11028:NEXTT:NEXTJ:V=8:POKEP-2,8:RETURN 
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135 GÜSUBSH : POKE3SES63, 242 
136 PRINT" 
137: PRINT" SERBBEB | SMTAR-OARSIE |" 
128 PRINT BEER ——— 
146 PRINT"INWIE SIND DER ILOT EINES "ATROULLIEN- $sCHIFFES DER -EBELLEN-_L 
i41 PRINT"SWIE HABEN DIE AUFGABE ERHALTEN, TATROULLIE DURCH EINEN YOM -MP- ERI 
un BESETZTEN! 
#2 PRINT"EM-AUN-BEKTOR ZU FLIEGEN al" 
143 6 USUB28:POKEP-1, 15: GOSUB4S3 
144 GOSUBZ98: PÜKEP, 1 
145 FRINT"IERIMeIE STEUERN DEN #-OING-_LUEGLER MIT DEN IASTEN:" 
146 FRINT"AAN ALTI=LINKS —ECHTS=LIIM ma L-1=-EUER" :P=36873:POKEP-1,15 
147 FÜRL=1SBT0254 :POKEP-3,L:POKEP=2, L:FOKEP-4,L:NEXTL|POKEP-3, 8: POKEP-2, 8:POKEP- 
145 GÜSUB2U8:FORJ=38T08235TEP. 5: POKE36363, J: POKEP-3, J+1 70: NEXTJ:POKE36865,.33 
14% POKE36863, 248: FOKEP 8: PÜKEP-3, 8 
156 6010468 
208 PRINT" SIEHMIIKIKIaIKinIKeTKEET 
281 GETDE: IFDE=""THENZUL 
262 RETURN 
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235 bOSUBSH: FÜKEF:E 
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AT EERIHTASTE |" 


e>1 FÜKESSE63, 255 

292 FRINT"YTM" 

2395 GUSUE33 

234 FRINT"SIORERbBBbbFÖÜHANBBILI]K." 


el "SEK ZERSTOEREN. SIE DIE FEINDLICHEN TIE-JREGER 3 
En EN ABER TREFFEN SIE ELUSS NICHT DIE. HOCH- EHFLOÖSIVEN E-MINENSCEN 
er FRINT" AN ES KOENNIE IHR LETZTER SCHUSS SEIN EELTEN® 


[1 
i 
ü 
ü 
ü 
[) 
ü 
i 
| 
i 
I 
i 
I 
I 
1 
ü 
ü 
i 
293 GOSUB2AR: FOKE 26869, 242: PRINT"TI" :RETURN 
4BB PRINT"N" | 
dbi PRINT" BITTE HARTEN SIE NUHNI DER VC-28 LAEDT M MB WSTAR-WARS 20" 
482 FORH=SLTULTBB: NEXTH 
dea3 CLR:POREISS: 3: POKEBS2, 147: FOKEEES, 131 n 
464 END 
422 GOSUBSG: PRINT" A" :POKE36869, 255: G0SUB93: FOKEB13D, G: FOKES1S2, 1 'POKE7756,2:FORK 
= ' 
566 FÜKESS872, INTCRNDC1I%#3) :FOKEP-2, INTERNDC1IHLBB)+LER:NEHTK:POKEP-2,0 Ha 
561 C=8168:FORH=11015:D=D-22:POKEC+D, 16: FOKEP-3. 250: FORG=1T020: NESTG:POKECHD,32:  ! 
POKEF-3, 8: NEXTH i 
562 FOKEP-2, 218: POKE?7S6,3:FORT=1STOBSTEP-.1:POKEF-1, T:NEXTT 
343 RETUFRH | 
I 
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Programm Teil 2 


REMFH+ CC BF FRÖGSOFT LTO.## 

REM#* LUTZ BLOMBERG 1984 ** 

PRIHT"TT'!F=385872:POKEBBS, 127: dal LEI ETTTIITITTITTTELLTTTTLTTTTTTTTT 
S5H=2:F=38728:M=77O2: [i=B: 12=17:%1=1:42=12 

J=e2:0=12:0=16:L=i1:!60T029668 

ee 5=5+1 :GOSUE115:6G05UE135:GOSUB148 : GOSUB145 :60SUE128: FORT=S1TOS:FOKEP-T, 
GOSUB122:GOSUB138:G0T0493 





FOoropr- © 
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= wm m 


115 FOKE36869, 255:RETURN Wo | | 
{22 FORT=LTO3:FORK=1T03: FORY=128T0250STEP3: POKEP-1,5+R#2> : FOKEP-6+R, 7 :NERTYORST 
RETURN 


IE 
123 
136 
139 
146 
i41 
145 
146 


323 


BOKEP-L, 15:POKEF-2, 177: FORTT=15T08STER-1:FORY=1T093:NEXTT:FOKEF-1.8 

EURR=1TO1S:HEXTR:POKEF-1:- TT:NEATTT RETURN 

FÜRYF=7ESBT08185 :FOKEY 32: NERTT RETURN 

FORT=1T038: Ks INTERHDELIESBO)+765885 : POKEK»4:NEATT RETURN 

PRINTER GHEBAHII IK" 
ERINTEBRREEI ET SIHHNÜS-SOFT" : : " AGMALTLD. RETURN 

POKEF-1., 15: FÜRT=1T058:PRINT"MSbbRbBBIMSHIPS" ;SH:FÜKEF-4, 258 
FRIHT"SBBhRbhklädsHIfs"; SH: FOREP-4, 8° NHEATT RETURN — 

IFSH<>3THEHS1E 

TIt="646808": DIMA#( Zu} 

F. Heci)=" L ie 

Asiz2)=" m 

+ Asi3)=" L 

7 HE )=" n 
Ars)" 
Hris>=" L 
AEirı=" L 
Atcls)=" | 

, HEisr=" L r 

AEClBs=" 

Ariiliy)=e" 

Arilz2)=" L 

A+il33=" L 

A&cld4)=" 
FÜKEN+L.32 | 

E=INTERNDCI IL 43 HI: PRINT "bb , HASTE); 

; IFPEEKCTTBSHLI<SPSZTHENGOTOSSE | | | 

5 PÜKEN#L, 12: FOKEHM+L+F 6: POKED+L-22, 82: POKEM+L-22+F . INTERNDE1PKSI+L:POKEP-1, 18 
POKEP-2, INT£RND(12#6>+180 | 
PE=FEEK(137): LFPEEKCPFRSHL+H2 ICH 3ETHENGOTOSSO 

" IFPE=S2ZTHENL=L-1: IFLCITHEHL=e1 

;; IFPE=13THENL=L+1 : IFLSZITHENL=21 

IFFE=4Z2THENSS? 

GOTOS1ls 


1, Be ee, 


ala Le 
L mad L 5 


Ela [U 
EL L - 


— 


C=g 
KL =955: FORT=M+HL+44TON+L+ LER22STEPE2:FOKET.0:FOKET-22,32: POKET+F) INTSRHDEL2#3 


POKEP-3,KL:KL=KL-2: IFPEEK(T+22)<H32THENFOKEP-3,80:G0T0639 
NEXT :POKEF-3, 8: POKET-22.,32:G0T0516 
REMEMBER TO BU | 
POKEM+L. 3: POKEM+L+F , 7: GOSUE122:POKEN+L.32:G0T0100% 
TRE=FEEK<ST+H22): IFTRE=ZTHENSC=SCHSB 
IFTRE=13THENGUTO1BOGE 
IFTRE=12THENSC=SC-1B:POKET:32:C0T0516 
i POKET+22,3:FÜKET+22+F . 7: POKET 32: G0SUBSB8:FOKET+22: 32 
GOTOS1E 
4 POKEP-2, 222: FORBY=LSTOBSTEP-.2:POKEP-1 GV :NEXT:FOKEP-2, 8: RETURN 
REMEMEER TO EuY THE NEW FROGSÜFT GAMES! 


THE NEH FROGSOFT GAMES! 


1806 SH=SH-1: IFSH=BTHENIBBZ 
ı{ögi FÜKEP-2.8:FÜKEF-3:8-G0T05 
1862 GOSUB138:G0SUB135:GOSUBL48 
1863 FRINT"IEBIAETOLUR TIME*",TI# 
1884 PRINT" MERIAHrÜUR SCORE: "SC 


1885 FRINT"A4 


1685% 
16861 
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PRINT" Arlda BEVOR SIE’S NOCHMAL 


kiBrE EVE „..(Aa":GOT0O30608 
POKEF, 18:G0SUB138:G0SUB135:G0SLB122 Bi 

PRINT "aleisfi WER NICHT HOEREN HILL, MUSS FUEHLEN!" :GOSUB122 
PRINT" SIE HABEN SOEBEN ALLE IHREILEBEN VERLOREN !":G0SUP122 
PROBIEREN: RELAXEN SIE NOCH EIN WENIG 


24 FORHJ=1 [0SB88 :NEXTHJ :FOKEP-2,8:POKEF-3,8: FOKESZ, 28:RUN 


FOKEF. 234: POKE36369 , 255: GOSUB138:GOSUB148 
PRINT" Me MNOS-SOFT HUENSCHT IHNEN YIEL SPE355 & 


POKEP-1, 15: FORGB=13010254 : POKEP-3, GB: POKEP-2. GB: FORNK=1T048 NEXT NEXT :FOKE 


VIELE FUNKTE ! 


: POKEF-3: 8: FÜKEF-Z, BD 


PÜKEF.8:GOTOS 


| FOKEF-2.8 


POKEP=-1,15:FORBE=1T033:RERADT :FOKEP-3, T:FÜRSD=1T048: NEXTSD:NERXTBB 
FREINT"BS":EHD | 

DATA2zS 225.0, 225,025 ee ee, 23 

DATR22S3, 233: 233: 237: 237, 240, 246, 248, 249, 248, 8, 225, 195; 139: 135,9, 8,0 


wi nm m ms 





eo Ve 8 08 08 8 8 8 8 8 8 8 8 BB CB CS 8 8 898 8 © eo 8. © 


mn rn u me m vun ie nie HE ee Mi ae GG Dam ee Es Ge m: HE TEE TEEN) TEEN . EEE: same sem sem, wie sa = Ca: DE TEENS BE Er Em: mm mi EEE TEE: TEE Time MI: emp mise > Mi: «ai Ca EG HMI mE TOM SEEN: AB FRE m m me am a: A EHE TEE A TEE TEE TEEN FimmeE« —imm Emm“ sams mim. cam Hin ai ME: EN: HE HEN TEN MEN mem Mimi: EEE: SEE TEN: Mm. Tamm Hmmm SEE "mm 
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Space-Fire $ = 


für ZX 81 


lü K RAM 





r Gelingt Ihnen das nicht, so verlieren Sie einen 
rn re Energiepunkt. Haben Sie keine Energiepunkte. 
Sie MUSSEN, um zu so verlieren Sie eines Ihrer drei eigenen Schiffe. 


Sind alle Ihrer drei Schiffe zerstört. so ist das 


“Hau _ bh J* r ; orupeN arzt 
| Spiel beendet. Für die feindlichen Schifie be- 
überle en, die nn 2 je nach Arı 10-100 Punk. Der 
} 7 1 N nhıttn Hıgh-score Iiegt bei ! unkten. Überbieten 
feindlichen Schiffe, Sie den Hiph-score, so können Sie sich als 


High-seorc-Halter eintragen. 


welche versuchen, Ab und zu fliegt ein Versorgungsschilf vorbei. 
Treffen Sie es, so können 51€ 100 weıtere Punk- 
te auf Ihren Scorestand buchen. Gelenkt wird 
auf ihren Planeten a 
Feuern können Sıe mıt den Tasten 2 und 9, Ist 


zu landen, mit Ihrer Ihnen der Hieh-score zu hoch bzw, zu niedrig, 


so können -Sıe diesen in Zerle 3 verändern. 


Phaserkanone Das Spiel wird nach dem Laden, welches mit 


Load" möglıch ıst, sofort gestartet, Dann er- 


aufhalten scheint das Titelbild, welches Sie durch einen 
ei Tastendruck wegscrollen können. 


POINTS 


POINTS" 
83 PRINT 


> 































Ref=2 THEN PRIMT 


POINTS 


2} 
i 
®: e 
: 84 PRINT " FIRE.eosu.. Kae 
® : RN CONTROLIG. GG Ä 
ü 
& PRIHT 
| [12 k 2 MEY na Do PRINT “ Li, ne Gl FOINT 
| ernmken PRINT AT 9,9%; EOR L=0 TO 500 
ET IF, INKEY SEES THEN soro 938 
| 3 i [= | 
[| nn 
| -Aa To 21 
® ®@ ı 
J 
1} BETBEIEETETSNNTE a" 
® Ä 16E17::538 THEN RANDE ® 
N usp 16514 
@! 2a PRINT AT 10,10; | | 
' ® ı 
i - L 
i [| | = 
8. | FIR - Ze oe! ı55L 
1 498 [er 
| Ba 1a e1: 
ı ® '  n3r AT 8,24 & 158 Der 
4@8 PRINT AT 10.2: = ATı san PRT 
ı 8328) "0.BRAETZ" AT 1.37: 
® ı Sa FOR L=0 TO 200 | @! san LET 
1 S2 IE INKEYS: '# THEN GOTD 60 535 REM 
\ ua NEXT I a0 LET FE ehr AH } 
& | Eo an Eee, > P% de1 LET tg IANDEEON H1 
{ =1 SCRÖLL 309 LET =TNT IPHb#21 +3 
ı 65 NEXT L 418 FOR Echo To.21 
®; m AT 9,0," 6 14 LET BRSINT. (RND=S) 
h: „E, ‚ 818 IF 
®| 319 ! 
so PRINT AT [ff 0: N 3 rar t @ . a2 7 DET=A THEr LET 
\ POINTS 6 32% 
@ 
| 
i 
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871 IF INKEYS="8" THEN LET Cen4 


4; AT A-1,B:1: "WE" En S75 IF TIHKEYS=S"1" THEN LET C=0- 
455 IF PP=1_THEN PRINT AT A,g;M 

4; AT A-1,2; W 3 573 IF INKEY$="D" OR INKEYS="1 
325 IF PP=@0 THEN PRINT AT A,BEN THEN PRINT AT 21,021; \ 

ee: AT A-1 ‚B-1T; An 2 zsaA NEXT % 

454 IF DDT=3 THEN LET ME="B' | | 

s2E IF DDT=2 THEH LET Me _ Tr AT| = 55: 
=@ TF INKFYS="D" THEN LET C=6+ ..n 


1 
“40 TF INKEr#S=e"1" THEN LET ©=C- 


34a IF FLe18 THEN FOR T=0 TO 27 
A5 TF FL=s18 THEN IF INMKEY/S="RN 
FEN LET E=6t 1 hr 
413 IF. FL=108 THEN TF THEEFS="1 
I LET C=C- | 2 
FF) ‚FL= 1a THEN PRINT AT 21.7 


FL=-1@ THEN PRINT AT 18,T 


+ 

ads TF FL=10 THEN IF INkKEYE="® 

d INKEY$e"2" THEN GOTO 20090 

A447 Ie FL=-10 THEN NEXT T 

7 ER FL=18 THEHN PRINT AT 16, 
35 =1 THEN LET C=2 

60 IF E37 REEIaE LET C=26 


a70 PRINT AT 21,0-1:;: 
asa IF INKEYg="8" öß INKEYE="T" 





EET. 5C=35G gi 
DET- i THEM 
SC-an4s0 


al IF B=55 THEN PRINT AT 1 










Ar - 
nd in 


THEN BOTO 505 7 | 

4398 IF A=21 THEN-GOTO S0OR | 

Roc NER Se ‘=HS THENH FOR 0=0 TO 23 
4= = 


5 THEN PRINT AT 8,0 


Bsoh IF A=21 THEN LET E=E-1 „NEXT 0 


=a1 IF A=z21 AND C=B: THEN LET Es 
IF B=SS AND DET=4- THEN LET 

9283 IF B=ss Aub COT=3 THEN LET 
a1 n=ss AHb- DOT=2 THEH LET 


ee 
Mu Sa Ei 


5 J Er LNT 
DEN. NICH SCHRE. 
SLUECKUUNSEHZBI TTE, 


EN INPUT Ag 
"EIERERE SH=-Scort 


u) HE pair = 







=55 THEN LET E=E+l 
=@ THEN LET D=b+l 
| =32 THEN GOTO 12908 
| =Ö THEN PRINT AT 1,0: 
30 CS 
-A THEN FOR 7-0 TO is PAUSE 100 
=@ THEN ERZHT AT al; aa GOTO 100 
AT 28,C-2,'"P W':AT STOP | 
ee, E97 | .SAUE "SPACE-FIRB" 


STH 4 

STOP 

FOR U=19 TO 10 STER ‚-1 
PATNT AT 10, T:'W TV 

LET T=-T+1 

PRINT AT U,C; "RP" ;AT UrL:c 


ME#T U 


"eo THEN PRINT AT 21,0-1 
28,C-5; ern AT 28,2%” 


'=0 THEN BRINT, AT 18,0: 
47 Des r F a Eau - 
: A 
E- ide Rs, u WE -u: ‚> i 


THEN NEXT. Z 
THEM LET E= 
{355 -THEN FRI 


+0 


Di 
IT AT 1.27 








IF A=21 THEN C0T0_ 2 
Kam deu de an | er] + =T = 
570. PRINT FT 3,55:"F; 





EEE HE a EEE TE mE: sie m: Sue Mine Huen ii A: DEE CHE HE FEN FEN me. sun Me »ä CH: -ERG: AG EA: DE TEN HE DONE EAN DEBEt TER rm nn m mn TI mE vum Sn si Male ai: MA. Ma: AG MEN TE“ SEmME EEE mE me me ine CE a A CE HN CE FAN ET MENT) Fan mim. we GE: GE. UMS GE MEN: TE MET en  : Ei TEEN SEE MEN. SER mem 
gu 
ud 
& 
be 
Ib 
je 
a 








h Korrektur 1/8 


Concentration gabe 
für Commodore 64 AUSB prüfen ler m 
ui nut | r 
110. DATA133.254,169.208,133,255,162,0,160,0,177,254,145,252,200,208,249,222 


120 DATA224,16,240,7,230,253,230,255,76,29,192,162,55.134,1,162,1,142,14 
130 DATA220.169.0,133,.252,169,160,.133,253,162,0,160,0,177,2 252,145, 252,200 
140 DATA208.249.232.224,32.240,5,230,253,76,69,192.198, 1, 162,83,142,190,160 
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Fr 
Cr 
am 






„Mir 
dh 





Fürs. 
E Fi Fi 










AB -1n 
















u 
Fr "Um; 
oe! 3d;,raßen 
ir lirg ee 
J 770.ERinT 
Ei N 396 LET = 
! Mu ERTIGHT 4 
f LT Wr 
I®@, „SielnigT a 
' | 
JEO Le 
ä - LET 
So i Ss Kt Bi 
BBEr- Ir 6 PRIMT BE 
® | ‚za ent: | IN 
AH - HM; Fi 
i „r38 Paınzs_T su Goirg „ar Tr 
&.EAPRER a: =4=-kbr., 0 2609 { 
iä . e3? IF IHK ’ ru DE } T 
ı Bag ao er Bi 
| „a6 IF [0 Se "BD sus + 
| en THE 
1} ii TR r 
ee ER N GA ro so 
ı „Sa _ IE Three -  THEN 60 
= Er “1 THENTRRErBe ro a0 
ed i ia oO ra a AN St=1 Akne 
ii 8-5 ziE ZNKEY 
' a HEN" Go 3='"'m | 
| I „P10 ler S!=c "#1 THEN 
Na! 8sı=\ A riinkerg, 
®@ , 5:35 SET SeT = AND ea 
ı .Fea Aaıueed_ THE | ts 
Be ENT Ar al -ET gr21 
@! De dar Eee REF E ; el 
r 1. =} = THEN 
ag top Stel r RENT AT 
ee "t 
I az NEN PRınm a 
ha) Sea Fe-NT Are | 74 
m 550 SE ya =.ersan 
"+=3 THen 
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RITTER KUNIBERT, Herr und Ge- 
bieter der „Burg Steinbrech“, ist der 
letzte lebende Nachkomme einer hel- 
denhaften Ahnenfolge derer von und zu 
„Steinbrech“, die schon seit ewigen Zei- 
ten mit den Wachkommen derer von 
„Steinbrecher” in Blutsfehde leben. | 


Nach einem erneuten Streit beider Fa- 
milıen hai Ritter Steinbrecher seinen 
Soldaten den Belchl zur Erstürmune 
der „Burg Steinbrech” gegeben. Sie al- 
lein haben durch Ritter Kunibert die 
Möglichkeit, die angreifenden Soldaten 
auf der Westseite der. Burg in einen 
erbitterten Kampf zu verwickeln. Rit- 
ier Kunıibert kann sich gegen die An- 
greifer durch Steinwürfe zur Wehr set- 
zen. Dabei muß er darauf achten, daß 
die angreilenden Soldaten mit. ihren 
Leitern nicht in das Innere der Burg 
gelangen können. In diesem erbitterien 
und.erfolelos scheinenden Kampfıst es 
also seine Aulgabe, soviel Angreifer wie 
möglich durch herabgeworfene Steine 
am Eindringen in seine Burg zu hin- 
dern. Jeder getroffene Soldat oder jede 
eetrollfene Leiter erhöht die Punkızahl. 
Helfen Sie also Ritter Kunibert, die 
Eroberung seiner „BURG STEIN- 
BRECH“ durch die feindlichen Angrei- 
fer. zu verhindern. 


Z = links 
x = rechts 
M = werfen 
Start = beliebige Taste 


SIENEFUNg: 


Die Steuerung erfolgt über Tastatur, 


x KKRRHR&=R KK 
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":0 GO u ee nn RT N ER m ech. FF 0 8a 
s en Od: > ea]. JE 1 TE BE = SEE " BER SEE 3 UI) ee U rl 
T su 0 0 Or ü -BWEcEN #5 C ET 
> Or a4 db Mn =“ ca 52 m {0 
OF #F 1 Das 1 Basen oe 1. BB 1 1 so BEE a Beim % + Dr 
ok nf: Ä ee ei um Eu “EB. 
= me OR “oO N » - + DM - Z Ei Detail Da % =e{) 
on da = a aa nu H Wu Een 7 Lo 2:20 | 
| RT nn. ee eh DE on Eu >» 
ar J:8° 80. ON re. eo H-afsch- dd -T 3 de Ur 
HAuaz Wo.z oc + - wu Zean De wc 2 USE 
Al IL H ur HH so 4 le Al ka U DI 
“rc$ cc m HAM - - E ZEN L "leur MET H- 
kurt je um . oo Bud Fa u : sentilI 2 ein hl 
Fia: : en Fr, „ LEI: ı ES. a Zn. ae ı Se ı Bau ı ae a LBEFISEN Hilft 
sa Fa ee hi ee rag "al uüse : ri 
EEE Tree a ed „ De ad hen Hohe a BE ln Lea 5 Di. 
Zur VO Ode GeiL- TE Dec lluN 8 0 
Here #4 u ee = FOR t; 0 ei a ee se “CHaicih Liswmliic-: nn vi 
Larry ae Fi “ti 3 ii erh PRagHT OSONRKS. cc} DR 
to Ww Waodt 6 := „AWZn 2 vaudu - m. AT = “ul Fl 
ff £ k u BEE: 37 Fe = ie di I Pr ti) 
üb ZE FF 1 er ah ek *-u FF De BKFuZz „el 
8 ZH HudAz Deild „dd dycn do eo 22 2 2 2 zZ Izeh 98 
3: H GH W Kadte P HÜFBHHer HE 2 HH Hıucs H er. Hy Ems 
JE LIE WW WILD FIod »- ENTE THTE © CL EIasa ld ad» Kick 24 
AUvdr FG. & DD ZESLOX l 


of 
ji GRDBA Sarto "Gwa Hl dOPEHET chtei- Doom un 
“A [1 Fial 0 DD. -+.%0 m cc sc 2 

[ 


A ll ul - 
5: 9503 DO Sud 20-8 -onEuBUE END Saierdu=-du 5 2127) I 
m +HULÜOo:F GO aeg AU3Q=-sH=eL.d4 oNe den DO 
ag N eg tee ae a Han - lcd Doyal) WM =* 
DER u aaa AALEN] Frahz suite Du Adnan 
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U-Jäger 


für Zx-Spectrum 





Bei der Eingabe des Spiels sollte erst das 
extra beigefügte BASIC-Programm ein- 
gegeben werden, und dann damit die 
Dezimalwerte des Maschinenpro- 
gramms. Danach wird der eigentliche 
BASIC-Teil des Programms cingege- 
ben, 


Die REM-Zeilen des Programms kön- 
nen weggelassen werden, aber wir emp- 
fehlen keine weiteren Änderungen des 
Programms, da es sich sonst „aufhän- 


gen“ künnie. 

Im Spiel selbst geht es darum, daß man 
mit einem U-Jäger innerhalb eines be- 
stimmten Zeitlimits möglichst viele U- 
Boote versenkt, ohne selbst getroflen zu 
werden. Ein. versenktes U-Boot bringt 
Pluspunkte, während ein U-Boot, dem 
es gelingt, den Bildschirm zu durchque- 
ren, Punkte kostet. Je tiefer ein U-Boot 
taucht, desto mehr Punkte bringt oder 
kostet es. Wird man selbst versenki, so 
bedeutet es nicht unbedingt das Ende, 
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aber es kostet ziemlich viel Punkte. 
Und von den Punkten ist abhängig, ob 
man noch mehr Zeit bewilligt be- 
kommt oder nicht, 


Das Schiff wird mit der linken unter- 
sten Tastenrcihe (CAPS SHIFT bis V) 
nach links und mit der Tastenreihe von 
B bis SPACE nach rechts bewegt. Mit 
der Reihe von A bis G werden links 
vom Schiff Wasserbomben abgeworfen 
und mit H bis ENTER rechts. 


ai ; 44 


Eu ip 
— z. r ur Eml 
Ei 


# 
Se ae rn f h pe: r ; 
f F 7 = L en Bar ee ar Ba a ne nr Pie Rn 





66 HoMECoMPUTER FEBRUAR 1985 





10 REH #a#sHhrr rer 
20 REM 
30 REM 
a0 REM 
30 REM 
60 REM 
70 REM 
Bo KEN 
°0 REM 


U - JAEGER 


+ 
* 

# 

ic) 1984 by # 
ALEXANDER HKALTER # 
FONTANESTR. 7 * 
3700 AUGSBURG # 
+ 

& 


L. SM, „UT. -jESSS, EEE” BES. ZEeS ‚BEE... 


Ioü REM #343 ##4## rer 


110 60 TOD 1000 

120 PRINT #1: RANDOMIZE USR 531138 

130 FRINT #1;AT 1,0; PAPER 4; INK 0; "TIME: *##+#4# POINTS: 2 

140 RANDOHIZE USR 31358 

{50 IF PEEK 23305=128 THEN BEEP „Ol,il: BEEP „01,10: BEEP .01,-5: 60 TO 130 
150 IF PEEK 23505=1 THEN 60 TO 200 

170 FOR x=1 TO 30: NEIT x 

180 GO TO 130 


[74 Dr Ei — 
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i 
190 REM ##=# ENDE ### i 
200 LET n=PEEK 23302#10+PEEK 23303#2550 
210 FLASH 1ı -FAPER 2: INK 7 N 
250 IF H>=P THEN 50 TO 400 
300 INPUT "Gratuliere, sie haben einen neuen HS erreicht. Geben sie ihre 
n Namen ein (max. 9 B.}", LINE H# 
210 IF LEN H#>F 0R H3="" THEN 60 TO 300 
320 FOR X=1 TO LEN H# ' 
= ij | H i ii Wi | = | i 

330 IF H#IXJ% OR H#ik)>"2* THEN BO TO 300 N 
40 NEXT & 
360 PRINT #15 AT 0,05” NEUER HIGHSCORE : ";F, 
370 PRINT #15" ALTER HISHSCORE-: "+H, i 
L 
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380 LET h=p 

>90 PRINT 

460 PRINT :AT 20,05" Willst du nocheinsal spielen 7" 
#410 PRINT TAB 20:1" Y/ N 3, 

420 PRINT AT 0,05 FLASH 05 PAPER 0;" Highsc.ı ";H,TAB 175 "von: ";HE, 
450 LET Z#=INKEY$: IF If="" THEN 60 T9 450 

440 IF Z5="Y" DR Z$="y" THEN 560 T0 120 

450 IF ZECH"N" AND Z3%>"n" THEN GO TO 4530 

440 E0 TO lei 

790 

1000 REM ##+#= ANFANG *## 

{010 BORDER 03 LET h=b: LET h$="" 

1020 60 SUB 3000 

{030 PRINT '"Willst du eine Spielerklaerung ?""TAB 24," Y/NI" 
[040 LET I#=1INKEYS: IF I5="" THEN 60 TO 1040 

1050: 1F Z#="Y" 08 2#="y" THEN 60 TO 1200 

1050 IF ZECH"N" AND Z#<>"n" THEN GO TO 1040 

1170 60 TO 1204 

i?260 60 SUB 3000 

1205 PRINT 

1210 PRINT "Du bist Coamandant eines" 

1220 PRINT "U-Jaegers und musst moeglichst” 

12530 PRINT "viele U-Boote versenken, wobei” 

1?40 PRINT "Dir aber ein Zeitlimit gesetzt” 

1250 PRINT "ist." 

1255 FRINT 

{250 PRINT "Nur senn Du viele Punkte er-" 

1270 PRINT "reichst #wird Dir Bonuszeit" 

1260 PRINT "gemaehrt." 

1285. FRINT 
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1290 PRINT "Jedes U-Boot,dass nicht versenkt" 

1500 PRINT "wird, kostet Pünkte, genauso," 

1510 PRINT "wenn du selber versenkt pirst," 

1320 FAUSE 0: 60 5UB 3000 

1330 PRINT 

1540 PRINT "Mit CAPS SHIFT bis V steuert man" 

1550 PRINT "nach links und ait B bis SPACE" 

1360 PRINT "nach rechts." 

1370 PRINT 

1380 PRINT "Hit A bis 6 wirft aan die Boaben" 

1370 PRINT "links vom Schiff ab und nit" 

1400 PRINT "H bis ENTER sirft san rechts ab,“ 

1410 PAUSE © 

2000 60 TD 120 

2990 

soad FLASH 0: PAPER 0: INK 7: CLS 

5010 PRINT HEHE FREE Er e  TAB ni EHE 
3020 PRINT "#";TAB 115"U - JAEGER";TAB Iis"«" | 
Sso50 FRIHT "#";TAB 317*+" 

s040 PRINT "+ & 1984 BY ALEXANDER WALTER: &" 

Ss050 PRINT "#"; TAB Il; "sRrasnaasre re" 
Ss0&0 PRINT : RETURN 

390 

7999 STOP 

BOOO CLEAR 31000: LOAD ""CODE : RUN 

8500 

Hol SAVE "u-jaeger" LINE.8000 

7010 SAVE "u-jaeger"CODE 31001,1729 

020 VERIFY "": VERIFY ""CODE 

7799 BORDER 7: INK 0: PAPER 7: FLASH 0: BRIGHT 0 


a TTTT————— nn 


SO0O>REH Eingaberoutine fuer das 
sbl0 REM Maschienanprograaa "U - JAEGER" 
>020 REH 
s030 REM 
s040 REN Aa besten erst dieses Progrann 
s050 REN eingeben und dann dasit die Werte einpoken. 
3070 REM 
S0B0 REM Nach dem Starten wird die Speicherstelle 
s0?0 REM und der bisherige Wert angegeben. 
3095 REM 
3100 REN Wenn nur ENTER eingegeben nird, 
sil0 REN wird der alte Wert belassen. 
s115 REM 
3120 REM Mit einer Zahl kleiner also 
s150 REM geht man um eine Speicherstelle zurueck, 
5140 REM um sie zu korigieren. 
150 REM 
si60 REN Und ait 10000 wird abgespeichert. 
3170 REM 
3180 REM Menn die Kontrollwerte nicht stienen 
5170 REM dann hast du einen Tippfehler gemacht ! 
3200 
3210 
4000 ELEAR 31000: LET a=31001: REM *### DAS ELEAR IST WICHTIG ###+ 
3040 LET Ci=A: LET C2=A: LET [I=h: LET k=-1 
4050 LET k=X+1 
, 4060 LET E=Ark: INPUT (C;"(";PEEK C};") "428: IF z$="" THEN LET z$=SIRs PEEE c 
4070 LET Z=INT VAL 1#:. IF Z=10000 THEN 60 TO 5000 
4080 IF 237255 THEN 60 TO 4050 
4090 IF Z£<0 AND X>0 THEN LET X=X-1: LET Z=PEEK (A+X)t LET Ci=eli-7: LET 07=09-7+ 
Z#IH CS >2#1INT (0/23): LET 0I=CI-I42#1#(0=2#H INT C/2)): 60 TO 4050 
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4100 POKE C,Z: PRINT C;" - "zZ 
4200 LET Ci=Ci+2: LET C2= C2+7-2#74(CX32#=INT (C/2)): LET 03=03+7-2#7# (0=2* INT C/ 


4210 IF X£99 THEN 60 TO 4050 | 
4300 PRINT "SUMME : "sCı'"i. DIVERENZ : ";C2°"2, DIVERENZ :";1035°° 
4400 INPUT "ALLES IN ORDNING ? (Y/NI ";A# 

4410 IF As="N" DR A$="n" THEN 60 TO 3060 

4420 IF Asc>"Y" AND Ask>"y" THEN 60 TO 4400 

4450 LET A=At+t100: 60 TO 4640 


4600 LOAD ""CODE : 60 TO 40650 

5000 PRINT "s#szrs2#2##=# WICHTIG ####HH30E" 

5010 PRINT " NOCH ""VOR"" DEM NEULADEN " 

S020 PRINT " #=2# CLEAR 31000 *=+ EINGEBEN" 

5030 PRINT "SONST LERNST DU UNTER UMSTAENDEN DAS FLUCHER” 
5050 SAVE "u = j" LINE 4500 

5050. SAVE "u-jaeger"CODE 30978,1790 


U = JAEBER 
„001 105 > Ü 41 #1 41 4l 41 6 8B 
31011 13 126 201 245 52 22 215 122 213 
31021 123 Bi 241 213 201 97 56 B 205 54 
>1051 121 51 205 23 16 248 121 193 201 197 
1041 Jg 120 72 797 JB 1 71 230 51 Fi 
31051 10 159 a0 | 91 230 | 175 20] Ei 
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i 
j 
i 
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i 
1 
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! 
f 
j 
j 
j 
j 
i 
| j 
s1081 Ü 114 3 1] 120 177 200 24 248 223 j 
31071 33 150 125 213 B7 2 2553 i90 so 32 | 
>1081 232 21 32 249 21 126 34 186 40 > 
1094 219 24 248 209 225 201 & ib 175 B7 
SUHME : 42077 1. DIVERENZ : 31493 2, DIWERENZ. : 19925 : 
1 
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31101 95 4] 23 203. 35 203 18 2E 145 46 











s111ll 2 129 229 IR- 242 201 if 245 14 10 
1121 205 121 121 IE 8] 245 255 124 181 32 
31131. 243 241 167 200. 215 24 230 33 Ö 126 
31141 37 4 34 92 pr " 54 l () 24 
31151 205° 84 121 14 54 22 45 205 55 121 
51151 l 192.2 22 , 205 B5 121 1 250 
1171 Ü 205 84 121 62 12 0 1451 92 & 
31181 32 17 1 Ü b2 B 205. 397 12] 120 
31191 250 3 198 >26 215 16 248 62 " 0 
SUMME : 40583 i. DIVERENZ : 50905 2.DIVERENZ : 21519 
51201 2 Fl En Ü u) >4 120 72 53 B5 
31211 19 34 a Fi 205 64 22 30 10 195 
31221 232 422 197 2050 29 121 193 234 15 192 
31231 33 14 71 122 17 4 ü 45 45 23 
31241 170: 32 252 209 43 43 4 1 b2 128 
s1251 5 7 91 3 Ant 71 32 221 4 Ü 

| S1281l ü 175 ı10 173-0237) 5 1207 92307563 254 53 
31271 200 33 2 71 1753 190° 200 53 30 6 
31281 Fl 45 33 39 170 32 251 22 1 114 
31291 45 ii 8 41 193 3% 121 205 „0 121 
SUMME : 40195 i. DIVERENZ : 30907 2. DIVERENZ : 22207 
>1301 2350 7 234 & 210 205 124 159 135 8 
31311 30 0 221 33 14 9} 221 23 221 126 
3132] [N 254 53 174 205 ı24 221 125 2 117 
31331 45 221 124 3 198: 3 119° 35 17,5 2053 
1541 24 42 & 71 237.62 48 3 33 {) 
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a: 3134 1% 
3137 58 
@: 3138 12 
ı 31391 50 
T SUMME : 4011 
| i 
[ 
E 2S{4012 672 
®: za 82 
ı 31421 121 
& ı 31431 45 
ı zZ 985 
@:; 31451 91 
ı il 63 
ı 231371 1% 
| ©: Zi 187 
ee: 314591 50 
@ ı SUMME : 40132 
i 
[3 ' U - JAEBER 
j 
@, 31501 62 
Nessie hr 
. 31521 45 
©: 1551 54 
0 84: 29m 
|®: z155 3297 
| SiS ..'9 
& ı 31571 33 
ı 31581 721 
@ ı 31571 230 
| SUMME : 4049 
[> I 
' 31601 192 
Is # 5si6sll 43 
Nr zur 33 
| 3165, 95 
®; 31641 9 
| i 315951 r; 
@: 31661 221 
| 31671 193 
oe 31681 110 
ı 31691. 205 
2: "SUMME. +4 
ee E : 31451 
i 
| sl 32 
Br Zr 
ı 31721 230 
& ı 31731 Ü 
3174 45 
@: 31751 153 
ı 31761 62 
HH 731771 to 
® ı SIE 5 
| 31781 l 
| ® ı SUMME : 41282 
! 
©. sımı 8 
" si8il 487 
a4. 31821 15 
| . IB 1 
ı 31841 42 
® . 31851 123 
| © il BE 
[| = F 
©: za 73 
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205 

40 

I. DIV 
Il 

205 
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145 


il. DIV 


ı9B 
t. DIV 


ni en Ei 


> 

126 
145 

[N 

123 
207 
121 

I. DIV 


62 
Ri 
19B 
5 
246 
3 
2053 
Ü 
221 
40 
1, .:DIV 


34 
187 
110 
33 
ERENZ 


145 
24 
205 
72 


62 
ERENZ 


39 
205 
205 
14 

B& 

40 

54 

7 

20 

40 
ERENZ 


91 
254 
254 
122 
250 
72 
167 
213 
b2 
221 
EREN?Z 


1 
EREN?Z 


97 a 
202 217 
122 51 
2? (0 

ı 20770 
92 52 
121 20 
74 121 
62 11 
24 PB 
234. 237 
40 al 
6, 100] 
Ü 9 
4 ll] 
ı 531775 
1.21 52 
4 121 
74 121 
50 143 
1) 175 
40 24 
45 62 
221 4 
205 247 
205 47 
: 30517 
157 a 
233 sg 
151 38 
el 33 
l Ar: 
221 24 
a 85 
127 130 
“2 205 
54 3 

ı 32457 
221 4 
3 221 
221 33 
190 2 
225 193 
52 b2 
121 62 
91 Ei 

Ü 24 
120 131 
ı Z1680 
202 1B& 
52 32 
221 115 
198 „a 

Ö 221 
& Ä 
229 197 
7 254 


m 


„f 


3 


Ir a 56 Eu 5) 


54 
54 128 
3 7) 
1 31 
2.DIVEREN? 
205 > 
32 205 
39 123 
94 121 
35.58 
230 63 
254 127 
2 82 
0 37 
92 29 


2,.DIVERENZ 


205 973 
23 121 
=) 221 
221 F4 
40 48 
1 iB& 
186 32 
Ü 24 
205 0 
221 35 
2, DIVERENZ 
b2 41 
71 93 
71 198 
71 33 
[e 177 
221 B& 
179 4) 
" in) 
121 62 
205 64 


2.DIVERENZ : 


25 221 
ZuS, . 20 
71 17 
235 221 
a Er Er. 
0 143 
205 94 
4] 25 
175 221 
203 12 
2.DIVEREN? 
24 J 
39 121 
12] 221 
3 205 
3 ı94 
so BE 
25 121 
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s2 


Ü 

17 

40 

25 
22461 


22670 


121 
4 
3. 
D 
205 
54 
10 
17 
121 
iä 
22507 


21721 


119 
121 
A 
25 
24 
72 
121 
>44 
Oo 
32 
22140 


175 
b2 
203 
78 
161 
175 
234 
62 
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4 50 
50024 
41033 

32 3% 
121 254 
624 
34.013 
Be +. 
161 205 
143 92 
1211 82 
232 
120 92 
40329 
JAEGER 
9.7 
17 
B 31 
5 9 
2 9 
2: 9 
92 82 
0 126 
920 235 
121 62 
40539 

„ ım 
12.4 
167 40 
0 60 
50 
4 4 
52 53 
Senn? 
255 66 
3095 
39570 

re 
7 472 
0 69 
See 

& b 
97004 
d ö 

0 70 
0 0 
Er 0127 
38502 

235, 2585 
A 
28 28 
124 62 
en 

0 0 

0 ö 
317 220" 
255 239 


91 


) 122 254 
32 a2 74 0 
1» DIVEREN! + 32053 
20 62 42 wi 
40 32 10 62 
So B Fl 62 
20 203: 29 121 
2053 39 121 193 
JE 22 17 24 
205 >? 121 42 
B1 213 b2 se 
203..:89 121 #2 
ib? 27 82 235 
1. DIVERENZ :ı 31227 
184 11 25 4 
232 5 25 34 
237 82 4B 113 
205 b& 22 62 
205 94 121 42 
30 145 2 il 
10 205 94 121 
37 34 4 92 
14 0 203 121 
52 215 17 11 
1. DIVERENZ ; 32159 

& J b2 32 
62 = 205 39 
& 74 2 40 
54 34 92 1 

2, 71 39 Ü 
46 47 46 ur 
"L eb 6 J 
32 2 253 7b 
57 sB 59 70 
239 35 = SB 
1. DIVERENIZ : 30508 
54 65 16 | 
42 42 2 66 
73 54 32 #2 
b & B 235 
& 233 Ü 31 
31 0 = Ü 

‚N Ü 126 0 
145 61 102 B2 
Ü Ü Ü D 
253 33 259 24 
li. DIVEREN? 32942 
239 {) ü Ü 
48 36 124 125 
2B 28 28 Ü 
28 8 U) () 

ü Ö Ü 52 
Ü Ü Ö 0 
14 128 15 65 
13a ea 125 76 
1h7 [N Ö Ö 


112 


32 A 4 
12 Zi 21 
2. DIVERENZ : 22567 
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So machen Sie mehr aus Ihrem COMMODORE 64: 


& Tr 






DATA BECKER BUCH 


DER BESTSELLER - BAND 1 

64 Tips & Tricks, das mit über 70.000 Exemplaren melstver- 
kaufte DATA BECKER BUCH, Ist eine höchinteressante Samm- 
lung von Anregungen zur fortgeschrittenen Programmierung 
des COMMODORE 64, POKES und ändere nützliche Routinen, 
interessanten Programmen. Aus dem inhalt: 3D-Graphik in 
BASIC - Farbige Balkengraphik - Definition eines eigenen Zel- 
chensatzes - Tastaturbelegung - Simulatlorı der Maus mit 
einem Joystick - BASIC für Fortgeschrittene - C-64 spricht 
deutsch - CP/M auf dem COMMODORE 64 - Druckeranschluß 
über den USER-Port - Datenübertragung von und zu anderen 
Rechnern - Synthesizer In Stereo - Retten einer nicht ord- 
nungsgemäß geschlossenen Datei - Erzeugen einer BASIC-Zeile 
In BASIC - Kasseftenpuffer als Datenspeicher - Multitasking 
auf dem COMMODORE 64-POKE's und die Zeropage.- GOTO, 
GOSUE und RESTORE mit berechneten Zellennummern, INSTR 
und STRING-Funktion - Repeat-Funktlon für alle Tasten, Alle 
Maschinenprogramme mit BASIC-Ladeprogrammen. 


| 32 5 7 2 22 


|| asrı vecrens 


DEA 
GONE der 


IR are weis 
E ij 5 


| ai ea Beier ann 


SIMON’ 


BASIC 





Fa a BF Be 





DATA BECKERS DER COMMODORE 64 DAS TRAININGSBUCH 


GROSSE PROGRAMM- UND DER REST DER ZU SIMON’ BASIC, 
SAMMLUNG ZUM WELT, 220 Seiten, 580 Selten, DM 49,- 
COMMODORE 64, DM 49,- 


250 Seiten, DM 49,- 





COMMODORE 64 
FÜR TECHNIK UND 
WISSENSCHAFT, 
300 Selten, DM 49,- 





















64 Tips & Tricks ist eine echte Fundgrube für jeden COMMODORE 
64 Anwender. 64 TIPS & TRICKS, 1984, über 500 Selten, DM 49.- 


JETZT NOCH MEHR TIPS & TRICKS - 
BAND2 

Auch der zweite Band von 64 Tips & Tricks dürfte sehr schnell 
eln Bestseller werden. Das Buch enthält eine Fülle hochkarätli- 
ger Programme, Anregungen und Routinen: ein umfangrei- 
ches Kapitel über Softwareschutz - Befehlserwelterungen 
und wie man sie macht - Tips & Tricks zur Programmierung 
von Supersplelen - Zeiger und deren Manipulation - mehr 
übers Interrupt-Handling mit vielen Beisplelen - erweiterte 
Harcdware-Möglichkeiten - Betriebssystem Ins RAM kopleren 
und dort manipulleren - sowie viele weltere Programme, 
Befehlserweiterungen und nützliche Routinen. Wer gerne pro- 
grammiert und mehr wissen will über den COMMODORE 64, 
der braucht dieses neue Buch. 

64 TIPS & TRICKS Band 2, ca. 250 Selten, DM 59, - 







FE dt Aidasa Aw | Fir bare aber au IH 
DAS IDEENBUCH ZUM 
COMMODORE 54. 

240 Seiten, DM 29,- 








Diese und viele weltere DATA BECKER BÜCHER gibt's im Buchhandel, Im Computer- 
fachhandel und in den Warenhäusern. Dort gibts auch den kostenlosen, großen 
DATA BECKER Katalog mit der großen Buch- und Softwareauswahl rund ums 
Thema Computer. Katalog auch kostenlos direkt von DATA BECKER. 


DATA BECKER | 


Merowingerstr. 30 - 4000 Düsseldorf - Tel. (0211) 310010 











Verk. TI 








59 + Drucker 
PCi00C + Anleitungen + 












Computerstatik auf 
dem C 64 





oopoondecanmaoooonoa | Netzteil + 60 Magneik. + 2 Anwenderfreundliche Hallo Spektrumfreaks. Ich 
I TI994A: TI+EX-Basic- 4| Rollen Papier, zus. für 450,-|| nd übersichtliche Sta- möchte mit euch gerne Prog. 

- programme werk. Info a| DM. W. Lenk, Langlütjensand tikprogramme für das tauschen, Liste, ob groß oder 
©) gegen Rückporto. B. 2 4, 28 HB 66, Tel, 04 21, deine und mittlere Archi- klein, an: Robert Weidinger, 
= Knedel, Tulpengasse C| 587326 — tekturbüro als preiswer- Schönmetzlersir. 10, 8050 
ao 16, 3171 Weyhausen DI te Diskette bauauf- Freising oder Sams.— Diens. 
I Telefon 05362 1 a u 5 Bi a sichtlich geprüft ee 081 61/4372 | 
rm 71187 = FORTH-Assemblerlistings für Iny.-Büro 5. Mergel, AEFEmIER PETE BEER SSR TPEERBFENE 
zlaln|ajalaln/nnjalnleleiajejnlulnng Inte Be im ee 4 | Zehntstraße 12, 3559 N ande 5 

Dragon 32, suche Frogramme, al IB DM, Autelinker u Rosenthal vr 


Sımula- 


























». B, Advenlures, Buchhaltung 1. Apple Il. Ka: | DOENSSOODBODOOROOSO 
tions-Programme, Aclion-Ga- | gg sten! Inioarı a nn k%k% FLOPPY 1541 6x|= +*** Atari-Spectrum- © 
mes elc., Jun Kurokoshi-Krü- ||] sooo Minehentt  — 1)] SCHNELLER! AKA durch |ö User-Club *** ) 
ger, Kattendahlerstr. 35, er de Parallelbus für C 64. Interface = monatl, Into, bundesweit 2 
4006 Erkraih | | kpi. geprüft mit Software nur |, gr ganisiert riesige © 
m DM 179,-, Info gegen DM|O prog.-Bibliothek usw... 3 

4 C-64: superschnelle Ac- 1,50 in Brielmark,., B, Akes- O g- ran Bf SW, O 
ion: _ 3D-FORTRESS sic + Joysticks + Recorder + | son, Pf. 802, 4040 Neuss. |5 „sy, Am Schürhof 17 
(Raumjäger, Ufos, Ener Kabel + Tlinvader + di. a ae ae 
giescheiben, Laser etc.) Handbuch + ca. TOPGM. + 1 9 +eos226 73088 © 
Un. Sb ae IA T-Magazin + Chip-Buch. VB: |500000000000000000 0... C 
PANZERFIGHT auf 700- DM. Tel: 22 Yo — —— —— 5[600000009000000009 
PoRe Pr (ScheiniV. W7are & TI-99/4A 5 ajalulalalalalajalnlalnInleiele len 
aha er | ; Suche Extended Basic 5|E „_ a . 
Scheck). Lieferung 48 || 0000000000000000609|5 Modul evil. Tausch ge- © | Comp.-Club L 

1 Std.C. Wurzer, Grünten- je ' in 210, Editoriassembler ° | Ü Bad Hersteld ü 
Li 14. 85 Nürnber. Ö Verkaufe C64 Spiele: ©|5 gen Editorlassembier S|D „ht Mitglieder! = 
| BL zei = liste von FPosilach F ei ® Sowie _ Maschinen a “ Kontakı über 3 og 
M. Wolf, Tel. 0641/41450, |) 53683, Herten 6 12 Bechniegrattans 2.0) Ale Biere B 
| Ä .600 Programme | O eg ıgsimulatı d Ex. 5/0 re = 
„tausche ca. 509 Frogramm® | So000000000000000©|8 Basic Spiel Miner 2049 & |Ö Am Giegenberg 21 al 
Sinclair ZX Spectrum 48 K O (USA-Version). DE 6438 Ludwigsau 1 = 
bei uns nur DM 448,-, Sin- i 2 Tal 07122137508 ed = oder Jugendhaus Hers- 7 
clair QL DM 1798,-, Micro- |p* c-64-Forth. Diese neue & we öl . feld L 
drive u. Interf. je DM 199,- Sprache jetzt auch f. C-64 OO9000000000000000| er efstalaleisialeiseinie 


bei Computer-Store, Herze- 
brocker Str. 46, 4830 Gü- 
_tersloh, Tel. 0 52 41/1 20 80 


ı Apple Il: E. T. (Alleslerner) © 
Geldspieler. Tamm, Solmsstr. 
43, 1 Berlin 61 













Verkaufe: Drucker Seı- 
kosha GP 00 A und 
SHARP PC 1260. Ange- 
 'bote an Chiffre U 





Verk. ZX 81 (Fol.-Tast, Def.) + 
15K + Nelzt, + Koaxkabel + 
Rec.-Kab. + deut. Anlig. + 
Buch M.80 Prar.. zus. 120,- 
Dil. Chr. Lenk, Langlütjen- 
sarıd 4, 23 HB 56, Tel. 04 21 / 

| _ 587326 


Verk. Colour-Genie 32K, mit 
original Software NW 600,—, 3 
Handbüchern u, Dalenrecor- 


Cass.-VWers. DM 63, -76.- 
Niskvers. inkl. Handb: 
(einz. DM 25,-) D-BASIC, 
prof. BASIG erw., DM 33,- 
OD, Luda, Staudinger Str 
65, BOOO München 83 





Verk. TI-99/4A + Ex-Ba- 1 


sic + Sprach-Synthesizer 
+ Joyst.-Adapter + ca. 


100 Prg. + Zubehör, VB. 
| A. Neuburger, Feldstr. 16, 
7505 Ettl. 8, Tel. 07243! 
29175. 


18, 5650 Solingen 1 





TI 99/4 A Ex1.-Spiel nur für Er- 
wachsene — bitte Alter ang. 
zum absoluten Preishil won 
nur Di 10,- im Umschl. an T. 
Karbach, Remscheider Str. 


Wenn ihr „Mugsy von Melbour- 





Suche 
VC-20-Programme 


Fritz, Wichdorfer Str.14 
3501 Emstal ? 


@ [= 
0000000600006 8088886 


Suche: Gute und billige Sofl- || 


ware auf Disketie für G4K Ata- 


@ 7%-Spectrum @® neue 


Programme ® Tausch- 
börse ® Info von S. Sau- 
er @ Heideweg B, 2720 
Rotenburg ® 





ii 600XL. Angebote an: Mi| Tausche/Verkaufe Atari Prg. 


chael Ebeling, Riepener Stra- 
7, 3061 Beckedorf 






TI 99/4 A, Zubehör, Mo- 
dule und Programme ge- 
sucht. Chiffre. 


16 K. Uwe Schöneberger, 
Sonnensiraße 18, 6652 Bex- 
bach 2 


Suche Software aller Art 
| {Disk.), für Atarı 800 XL u, An- 
iic-Hefte bis März 1984, ewll. 











7 Me nF UENEHEEENREEERNNNEEM ch Computer u. Analog. 
der für nur 550,— Tel.047 21| ne House“ wollt, dann kriegt [ TI 99/4A Minimemory - Dietmar Levenhagen, Land- 
'47280 ihr es für 35 DM {vielleicht) - ae wur m| wehr 83, 3057 Neustadt. 1.1 

zw | noch Dei: Jan \Weigner, Car |g 2 Bonn re Me Tel. 050326 1181 
E Yale Sihaktane. x | Schurz-Str. 11, 2800 Bremen |m PEST’ De! =| _ ee 
| Abentaı w a | t. N 1, Tel,. 04 21 7946987 REEREETTUTTTTT 
| Freacy Mathigiscoret | GUSSsscEEBEEEEEEEE || Zarehre una Interessen 
|$ ste, 2 Spielstufen und 6 \ Wegen Systemwechsel zu ver- 5 N an ° astsigch 
$ Höhlen [auf Casselte! | $ | kaufen) Laser 2001, Disket- . Miersprachen. Tauschmatenal g || Monika Baumgariner 
5 15,- DM an Bernd %| tenlaufwerk, Datenrecorder, | warhanden. Stefan Schneider, @ || 4021 Linz 
x Schissler, Hölderlnstr. | Prinierkabel + Software auf |@ Meerschlader Weg 1, 5275 #|| Postfach 142 Austria 
x 3. 7117 Bitzfeld | Diskelte. VB_1100.-. Tel. Bergneustadt & || Bitte Liste beilegen 
3. S| 061717794 73ab 18Uhr |g a|\_ | 


1 Mk 6 m Me mn m Mh meh Wi N 


000685800868868696 
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BR 
kompetente 
Anwender- 
IERZVAI 


Wer schlau ist, besorgt sıch jetzt dıe 
„NEUE* CPU! 

Das magazın für Leute, die mit Ihrem 
Computer nıcht nur spielen, sondern 
mit ıhm arbeıten wollen! 

Fragen Sie Ihren Zeitschriftenhändler 


Auftrag für Gelegenheitsanzeigen in Homecomputer 


Homecomputer 
Landstraße 29 
Postfach 41 
31444 Wehretäl ] 


Unter der Rubrik „Kleinanzei- 
een“ veröffentlichen wir Ge- 
legenheitsanzeigen für Verkaufs- 
angebote, Kauf- und Tausch- 
gesuche, Kontaktaulnahme bzw. 
Erfahrungsaustausch usw. 


Preise für „Kleinanzeigen“: 
Private Gelegenheitsanzeige je 
Druckzeile 5, — DM oınkl MwSt. 
hiffregebühr je Anzeige ID,— 
DAT, 

Gewerbliche Gelegenheitsanzei- 
ge je Druckzeile 11,— DM inkl. 
MwSt. (dürfen nicht unter Chifire 
erscheinen]. 
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Name um Adıesie 
Abb Mr, 


LUmwsschrili Ich zahle ofori mach Rechnungscrhali Datum 


Ich wünsche folgenden Text zu veröffentlichen: 








| 
| 
| 
| 


Bo —— 


u) u 


utreffendes ankreuzen 
[I Ankäue DO Kontakte U Geschäftsempfichlungen U gewerblich 
[U Verkäufe U Tausch _] Verschiedenes U privat 





HOMECOMPUTER #5 


a es ee 


„Seit etwa einem halben Jahr gibt es bei 
uns ın Münsier einen TI-Club, Er be- 
steht aus etwa 20 Mitgliedern und sucht 
weiteren Zuwachs. 

[’er Club entstand aus dem Bedürfnis 


heraus, Kontakt zu Gleichgesinnten 
aufzunehmen, Erfahrungen auszutau- 
schen, Probleme zu bewältigen und den 
Umgang mit dem TI-99/.ıH A) ellektiver 
zu gestalten. 

Wir sind daher an einem regen Infor- 
mäationsauslausch mit. allen TI-Anwen- 
dern interessiert, Won unserer Seile 
sınd wır bereit, diesen Personenkreis 
mit Informationen aus dem Club zu 
versorgen und auch sonst nach unseren 
Möelichkeiten. Ratschläge zum Um- 
gang mit dem TI-9W4{A) zu erteilen. 
Wir planen, in regelmäßigen Abstän- 
den eine Clubzeitschrifi herauszuge- 
ben, welche alle wichtigen Informa- 
onen über unseren Club und wesenili- 
che Neuerungen enthalten wird, 
Sofern Interesse an cınem Kontakt zu 
unserem Club bzw. am Bezug unserer 
Clubzeitschrifi bestehen sollte, bitten 
wir um schrifiliche oder telefonische 
Kontaktaulnahme. 

Wir möchten ausdrücklich darauf hin- 
weisen, daß wir keinerlei kommerzielle 


Interessen verfolgen. Alle unsere Infor- 
mationen und sonstigen Hilfen werden 
daher zum Selbstkostenpreis angebo- 
ten. 

Dre Mitglieder unseres Clubs wünschen 
sich insbesondere auch persönliche 
Kontakte zu Mlitgliedern anderer 
Clubs," 

c/o Thomas A. Schneider, Schillersira- 
Be 65, Tel, 0251766 30 90 








Sinclair User Club 
Schweiz 


Wir suchen Mitglieder(innen). Ebenso 
wünschen wır Kontakt mit gleichge- 
sinnten Clubs in Deutschland und 
Üsterreich. 


Dre Absıcht dieses Vereins besteht dar- 
in, Erfahrungen, Tips und Tricks im 
Umgang mit Sinclair-Computern aus- 
zutauschen sowie in der Schweiz nicht 


erhältliche Hard- und Sollware zu ver- 
mitteln. 


Interessierte Personen und Vereine 
melden sıch bitte schriftlich oder telefo- 
nisch (jeweils abends) bei: Sinclair User 
[lub Schweiz, Postfach 16, CH-5637 
Grüningen, Tel. 01/241 1908 oder Tel. 
01.9 45 00 25 





Korrektur 
Maniac 
lür Atari 


Seite 71 


Ausgabe. 


. 1/82 


„Sie 


al 
Bine A ven ‚giten 
je Die 
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DRAWTO 17,7 
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Für den Preis eines Home Computers 
bietet er Ihnen viele Eigenschaften, die 
Sie sonst nur bei professionellen Micros 
im Ausbildungsbereich oder im Ge- 
schältsleben finden. 


Acorn Basic 

Der Electron ist die ideale Maschine, 
mit der Sie ins Computern einsteigen 
können — mit speziellen Lernprögram- 
men oder auch mit Spielen. Seine gra- 
phischen Möglichkerten gehören zum 


Besten, was & ın dieser Preisklasse auf 


dem Markt gıbt. 


Das vielgelobte ACORN BASIC ısi 
eingebaut. Fachleute bezeichnen cs als 
eine besonders leistungsfähige und 
komtortable Programmiersprache. Mit 
ACORN BASIC entwickeln Sie von 
Anlang an einen guten und rationellen 
Programmierstil, der Sie immer beglei- 
ten wird. 


ACORN BASIC ist die Sprache des in 
Großbritannien überaus populären Bri- 
iish Broadcasting Computers, der eben- 
falls aus dem Hause Acorn kommt und 
auch in Deutschland erhältlich ıst. In 
Großbritannien hat dieser Computer 
eıne eigene Fernsehserie. 


Hochwertige Ausstattung 

Der Eleciron hat cın stoßlestes, ergono- 
misch gestaltetes Gehäuse, Die 
Schreibmaschinen-Tastatur besitzt 56 
Tasten, von denen Sie zehn nach eige- 
nen Bedürfnissen frei definieren kön- 
nen, Zahlreiche Steuerbefehle lassen 
sıch durch einen eınzıeen Tastendruck 
abrufen -— eine große Hille beim Pro- 
erammieren (shorthand BASIC). 

Auf einem Monitor oder cinem Farb- 
fernsehgerät stellen Sie die hochauflö- 
sende Graphik dar. Zum Speichern und 
Laden von Programmen können Sie 
jeden handelsüblichen Casseitenrecor- 
der anschließen. Ein Diskettenlaufwerk 
wird schon bald auf den Markt kom- 
men. 





kirier 
EURE TIGERS LIHRESERETGUE VIE Eh WER 
| [hekiateehruk CHTitnEbon NEL HEHE 





NMerteräe rar Freie. 


Der Eleciron besitzi eine Speicherkapa- 
zıtät von 64 K. Davon entfallen 32 K 


auf den Lesespeicher (ROM) mit dem 


Betriebssystem und dem BASIC-Inter- 
preter. Der Arbeitsspeicher (RAM) um- 


faßt 323 K, von denen 35 K für das | 


Berriehbssystem benötigt werden. 





Richt gemacht 


NIELS; 


MZELE 


AR LERNTHRE AA: 


Stehtserallen ln ine lulne Miete 
abier@rebe ehegsekasteldilichekie 


ni als TArı 
Fer ne 


der Deaslores Breiter 


örenmelAtuluelerokr assunesie INERLAL LIEGE 
(hinskereli SEHR ELTERU LE LIFE RRFEHADE| (lerne, 


| HUeknsetie BAR ETE FRINGS SCHEIN LAEE HETIEIE 
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VEREINTEN TREE EDEL SSR EHASS LIRNRESLÄLRESEL 
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REDEN ern Peesomakeniplke 








FEBRUAR 1985 








Lie: i 
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Bas mabile Brenenklssungngerie SIE 
SEHE STEEL, WENARHNTSTHRE 
EHATEBE BIS DELL LEBEN ER TAN 
AN ERGEERORLGTERLIFTELEFERTER FARHBLLIG/R ERRTUNG 
ES RAN CSU HL ENTE NIE LE re LUTeH 
nes schate Sieallelnene ir Site 
FIR TERNTE-BEOREL Tee Tr [her 
Merspejchen Eiche Wan 8 Wis 
ar BE BL EL HIER SCHIEN ES LE 
SEELEN ÄAESE Hilllerneden Pepe: 
EALERSTTIPBLLIE DIMER Ne hschiertihne AN KARSilke 
kapplennieerchrekebeeluenbergebaie hs 


SCH line Paket Wir atlpelsehestee ge 
ISODELEES HIER PEIS EHENSNEHS ER rIndS- 


stderllen  Nınzuns: zunmBeispreh Anal 
 Bustell=SPradükimmes Ser 
KEBUSCHSUhL CHE FaSSıetge ceteg Sirlkb user 
Find EINERTIFER FEN RESET A 
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Atari 


Manıce K = 14,50 
Flint eewinnt D = 19,59 


Apple Il 


14,30 
19,0) 


Lawriniih Ks 
[BAT = 
Generalor 

| Miskengsenerälor 





Clıpper- 
) fi Der 





jeden Monat dıe neuesten 
Programme (zu den bereits in 
früheren Ausgaben veröf- 
fentlichten) auf Kassette bzw. 
Diskette an, Machen Sie von 
unserem Anpebot Gebrauch. 
Wir senden Ihnen die ge- 
wünschten Programme inner- 
halb 

1 Woche zu. 


Geben Sie bitte unbe- 
dingt die genaue Be- 
zeichnung des Daten- 
trägers (z. B. aus Ho- 
mecomputer 1/85 
Commodore 64, Dis- 
kette oder Kassette) 
an. 
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Softwareversand . 






Commodore 64 | 


Reacior 
Concen“ 
Iralidf 


K = 17,50 


n 2350| IzyKla 


Istenlank 





Homecomputer 


Neu!!! 


KR = 11,50 


Gellsammlo 


Bestellung per 
Nachnahme in 
Homecomputer 


Lifibär 


Lulikampff D= 


Plong 


Grand Prix Ks 
Ingarien 





Atarı 


HK = 
= 


| Allaniıs 
| osmische 
Arche 


Apple Il 


Suchsel 
MHelln 
AsU H-Dumper 


| Dragon 32 


Eusiness- 
gralık KB. 


Id- 





14,30 | 
| 


Sie bezahlen Ihre 
Ware bei Zustellung 
durch die Post! 

Bitte beachten Sie: 
Per Nachnahme ent- 
stehen zusätzliche Ko- 
sten! 


K = 13,50 


| Commodore 
64 


Warkonds K = 
Liwerns [+ = 
ol Death 


13.501 [Star Wars 


| Punkteltesser 





Fluc-Bus F&= 1450 
Perlen» Kb = 19,30 
1aucher 


| ZAr-spectrum 


I Ll-Jper 
Kunibert 
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Postkarte einsenden an: 


Ironic-Verlag, Postfach 34 44 Wehretal 1 


y@N\ oder einfach telef. bestellen: 0 56 51 / 4 06 43-4 (16 93 





Spiders: 


Ziel des Spieles ist 
es, Zwei Spinnen, 
die auf ihren Wiet- 
zen herumkrab- 
bein, zu beseitigen. 
Wernichten kann 
man die Tierchen 


Frogger: 


Ein Spiel für den 
ZA-Spectrum 48K. 
Die beliebte Spiel- 
version jelzt auch 
für den ZAX-Spec- 
trum. Ein Frosch 
hockt am Straßen- 





rand einer viel be- 
iahrenen Straße 
und versucht ver- 
zweiiell, sie zu 
überqueren. Ist ihm das gelungen, wartet eine zwei- 
teschwere Aufgabe auf ihn. Ein Fluß, verseucht mit 
Krokodilen, muß überquert werden, Das Spiel ver- 
fügt über einen guten Sound. 


allerdings nur mit 
Insekteneilt. Davon 
liegt noch genug im 
Keller, aber wo ist FIL 

der Schlüssel? - Unser Topprorframm aus der Aus- 
gabe Oktober, Spiders gefällt durch eine gute Gra- 
ik und guten Sound. Gespielt wird mit Joystick an 
Port 2. Für Commodore 64. 





Mother Duck: 


Ähnlich der Spielversion 
„Frogper“. Eine Entenmutter 
muß einen Fluß überqueren, 
um Futter für ihre Jungen zu 


Oil-Panic: 





bekommen. Allerlei Untier 
hält sich 
jedoch 
Fressmann: im Was- | 
Peer Ser | 


aul 
und macht jede Flubüberquerung zu ei- 
ner gefährvollen Angelegenheit. Für TI 












99, Benötigt werden Joystick und das 
TI.-Ext.-Basic-Modul. en | re 
Sie müssen versuchen, mög- 
lichst u Tronen aulzu- 
fangen, die aus 
Skeet: (Tontaubenschießen) Einer defekten 
Ölleitung her- 
Für Commo- austreten. Aber 
Fressmann ist eine Pacman-Version. dore 64. Dem aufigepabt, denn 
Das Programm, welches ohne Erweite- realistischen der Eimer, der 
rung lauffähig ist, steht der Originalver- Tontauben- zum Aulfangen 
sion in nichts nach. Fressmann läuft auf schießen da ist, ist mil nur 
dem VC 20 und wird mit Joystick ge- nachempfun- vier Troplen ge- 
spielt. den. Won ei- füllt. Für EX- 
A nem Katapult Spectrum 48K. 
Projekt: veschleuderte 
et > Tontauben 
Als Top- müssen reaktionsschnell getrollen werden. 
PIOSTABEE In diesem Spiel kann jeder seine eigene 
auserwählt Meisterschaft austragen. Eine Supergrafik 
von. der zeichnet besonders aus. 
Redaktion. 
Sie sollen High Noon: 
eine P- 
fährliche 2 | 
Wlission Ein tolles Spiel für den Commodore 
ausführen. 64, Hieh Noon besitzt eine schöne 
Ulm für die Grafik und eine hohe Spielgeschwin- 





diekeit. Gewählt werden kann zwi- 
schen 2551! verschiedenen Spielstu- 
fen. = Auf einer vielbefahrenen Post- 
kutschenstraße stehen sich zwei 
Cowboys gegenüber und duellieren 
sich. Ein Spiel lür alle \Western- 
Freunde. 


nächste Zeit genügend Uran zur Verlü- 
zung zu haben, sollen Sie eine Reise 
zum Mond unternehmen und nach dem 
edlen Metall suchen. Ihre Reise ist in 
jün! Phasen aufgegliedert, die nachein- 
ander bewältigt werden müssen. Ein 
schönes Spiel für den Commodore 64. 





| 
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a $ auf de Are und. | 
ee Were au SOFT- © ns 


WARE zu 
bekommen. 





' Nutzen Sie doc einfach 
unseren preis- es 
günstigen Katalog. 


PR ee BB 


Mehr: darüber auf. m 


| r \ E n Seiten 78 und En 


u 
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